CREF G6 


IBM PC/XT CREFB6 Vi.@ 


INPUT FILES: 


QUTPUT FILE: 
CONTROLS SPECIFIED: 


MODULES INCLUDED: 
FILE NAME 
INITIAL, OBJ: 
BOOT. OBJ: 
R5e32, OBI: 
KEYBOARD. OBJ: 
KEXINT, OBS: 
PRINTER. OBJ: 
FLOPPY. OBJ: 
GRAPHICS. OBJ: 
VIDEO. OBI: 
EQUIPHNT. OBJ: 
USEFUL. OBJ: 
INTS. OBJ: 
TINE. OBJ: 
PRINTSCN, OBI: 


BIOSDATA, OBJ: 
STACK. OBJ: 


INITIAL, OBJ 
VIDEO, OBJ 


BIGS. CRF 


PABELENSTH(88) PAGEWIDTH(132) PRINT(BIOS.CRF) TITLE((C) Display Telecommunications Corp., 1983) 


MODULE NAME(S) 
INITIAL 
BOOT 


3 
PRINTSCREEN 
PUBLICS 
STACK 


(Cf) Display Telecommunications Corp., 1983 


BOUT. OBJ RS232. OBJ 
EQUIPMNT.OBJ USEFUL. OBJ 


KEYBOARD. OBJ KEYINT. OBJ 


INTS. OBJ 


TIME, OBJ 


12/28/83 


PRINTER. OBJ 


FLOPPY. OBJ 


10:39:06 PAGE 1 


GRAPHICS, OBJ 


PRINTSCN. OBJ BIOSDATA.OBJ STACK. OBJ 


CREF 86 


SYMBOL NAME 


ACTIVECARD. ... 
ACTIVEPAGE. . .. 
ALTINPUT. . . 2 


BASICTRAPADDR . 
BEEP, 1 ww oe 
BIOSBREAK . . . 
BOOTDRIVER, . . 
BUFFEREND . . . 
BUFFERSTART . . 


CRISTART. . . 
CURSORMODE. 
CURSORPOSN. . 


DISKETTESTAT. . . 


EQUIPDRIVER . 
EQUIPFLAG .... 


FDCSTATUS . . 1s 
FIXEDDISK1. . 
FIXEDDISKe. . 
FLOPPYDRIVER. . . 
FLOPPYHDWRINT . . 


BYTEQUT. . . + 

CASSETTEDRIVER. . 
CHAROUT .. . 2. 
CLEARSCREEN.. . 
COMMSDRIVER. . . 
CRICOLUMNS. . . 
CRICRLF. . wae 
CRILENGTH . 2. + 
CRIMODE. . 1... 
CRIMODESET. ... 
CRIPALETTE. . 


FLOPPYPARAMSPOINTER . 
FLOPPYPARAMSTRAPADDR. 


TLLEGALINT. . . 
INTRFLAG, . . « 
IOROMINIT . 2 « 
TOROMSEGMENT, . 


KEYBOARDDRIVER. . 
KEYBOARDFLAG1 . 
KEYBOARDFLAG2 . 
KEYBOARDHDWRINT 
KEYBUFEND . . 


KEYBUFTAIL. 
KEYIN. . 


MEMORYSIZE. .. . 
MEMORYSI ZEDRIVER, 
MEMORYTEST. . .. 
MFGERRFLAG. . 
HFGTEST. . . 
MOTORCOUNT. . 
MOTORSTATUS . 


NIBBLEOUT . . 
NMIINT. . 1 2 0 
NHITRAPADDR . . 


PORENTRY. . . 
POSITIONCURSOR. 
PRINTERBASE . . 
PRINTERDRIVER . 
PRINTMESSAGE, . 
PRINTSCNSTATUS. 


ea eaa 


bs he @ © HH 


eo. » © a2 = © © O&O ee we 


es 26 #6 oe ee wf 


se @ & Bw 


SYMBOL TYPE 


(C) Display Telecommunications Corp., 1983 
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DEFINING NODULE; REFERRING NODULE (S) 


PUBLICS; 
PUBLICS; 


EQUIPMNT; 
PUBLICS: 


PUBLICS: 
EQUIPMNT 
USEFUL; 


INITIAL: 
USEFUL; 
PUBLICS: 


INITIAL = VIBEO 

VIDEO 

KEYINT 

INITIAL BOOT 

INITIAL VIDEO  INTS 


KEYBOARD = KEYINT 


INITIAL KEYBOARD KEYINT 


INITIAL —INTS 
INITIAL BOOT  INTS 


INITIAL VIDEO 


KEYINT VIDEO 
INITIAL VIDEO 


INTS 
INITIAL VIDEO 


FLOPPY 


EQUIPMNT © USEFUL 


BOOT  INTS 
BOOT FLOPPY 


INITIAL 
INTS 

INITIAL 
INITIAL 


INTS 

KEYBOARD —KEYINT 
KEY INT 

INTS 


INITIAL KEYINT 

INITIAL KEYBOARD  KEYINT 
INITIAL KEYBOARD KEYINT 
INITIAL BOOT INTS 


INITIAL EQUIPKNT INTS 
INTS 


INITIAL 
INITIAL 


FLOPPY TIME 
FLOPPY = TIME 


INTS 
INITIAL 
INITIAL 


INTS 
INITIAL 
INITIAL 
INTS 
INITIAL BOOT  INTS 
PRINTSCREEN 


USEFUL 


INTS 
PRINTER 


CREF 86 


PRINTSCREENINT. . . 
PRINTSCREENTRAPADDR . 
PRINTTIMEQUT. . . . 


RAMVECTORS. . . 
RESETENTRY. « « 
RESETFLAG .. . 
RORCHECKSK. . . 
ROMCHECKCX. . . 


ROMVECTORS. . 
RS2Z2BASE . . 
RS232T IMEQUT. 


SEEKSTATUS. . . 
STACKTOP. » s « 


TIMERHDMRINT. . 
TIMERHIGH. . . 
TIMERLOW. . 2 
TIMERDVERFLOW . 
TODDRIVER. . . 


VIDEODRIVER . . 2» 
VIDEQGRAPHICSPDINTER. 


VIDEDGRAPHICSTRAPADDR 


VIDEQINIT . 1 we ee 
VIDEOTRAPADDR . . . » 
VIDPARAMSPOINTER. . . 
VIDPARARSTRAPADDR . . 


WORDOUT 2. wv ee 


UNKNOWN 
UNKNOWN 
UNKNOKN 


UNKNOWN 
UNKNOWN 


(C) Display Telecommunications Corp., 1983 


PRINTSCREENs 


PUBLICS; 


INITIAL 
INITIAL 
INITIAL 


INITIAL 
KEYINT 

INITIAL 
INITIAL 
INITIAL 
INITIAL 
INITIAL 
INITIAL 


FLOPPY 
INITIAL 


INTS 
TIRE 
TIME 
TIME 
INTS 


INITIAL 


PRINTER 


INTS 
KEYINT 


RS232 
R5e32 


VIDEO 
INTS 


INTS 


12/28/83 
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IBM PC/XT 6@86/8087/8088 MACRO ASSEMBLER V1.1 ASSEMBLY OF MODULE IBMINC 
OBJECT MODULE PLACED IN IBMINC. OBJ 
ASSEMBLER INVOKED BY: ASHBG IBMINC. SRC 


LOC OBJ LINE SOURCE 
1 +1 $Title ("DIC/PC BIOS IBMINC Include File Dummy Assembly V1.8") 
2 +1 pie (BG) Pagewidth (132) Debug Nogen 
3 Name Ibminc 
4 
ss] 
; Author: Don K. Harrison 
8 ; Start date: December 28, 1983 Last edit: December 28, 1983 
18 
11 H ELELELESELER EEL EEEEE LEE 
12 ‘ # Module Description # 
13 H piitirt tt ititiiittst ties 
14 : 
15 : This module is a dummy assembly of the include file used 
16 ; by all modules, 
17 
18 
419 
21 
22 H (c) Display Telecommunications Corporation, 1983 
23 ; ll Rights Reserved 
24 
25 $E ject 
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LOC OBJ LINE SQURTE 


HEHE EEE 
# Revision History # 
SEEEEAEEHEEEEE EEE EEE 


8 


38 $Eject 


6086/8087/8886 MACRO ASSEMBLER 


LOC OBJ 


LINE 


DIC/PC BIOS IBMINC Include File Dummy Assembly V1.0 10:14:58 


SQURCE 


: a file same as IbmInc except $Nolist command commented out 
$Include (Ibminc. ap) 

‘ JAAS 

j * Global Include File # 

; pretttt tt ttttiitiiigis ss) 


;$Nolist 


SEER EEL EEE 


* Macros *# 
PEEEEEEREREE 


ZtDefine (Bus (Value) ) 
(Mov Al, Value 
Out @CBH, Al ) 


$Eject 


01/16/84 PAGE 
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—-8886/8087/80868 MACRO ASSEMBLER 


LOC OBJ LINE 
=1 55 

=1 56 

=i 57 

2158 

ei 59 

=1 60 

=i 61 

=1 62 

=1 63 

=1 64 

=1 65 

=1 66 

21 67 

9ee8 =i 6B 
9888 =1 69 
2009 =1 78 
ean =1 71 
@aaF =1 72 
gae8 1073 
pean =1 7h 
000! 1 75 
9002 =1 76 
9223 2177 
9024 =1 78 
0905 =1 79 
e026 =1 Be 
0907 =1 Bl 
eeac =] 82 
e9aD =1 BB 
Qa0E =i 84 
8083 21 85 
0081 1 86 
ane =1 87 
=1 BB 

1 89 

=1 

=o 

= «® 

1 

eee 1 94 
9021 = 5 
0021 =1 9% 
0921 21 97 
Qa?! =1 98 
9028 =1 99 
9920 =1 120 
=1 101 

e02e i 102 
=1 103 

e020 =1 194 
=1 105 

=1 106 

=1 107 

=1 128 

=1 109 

9248 =1 118 
0241 1 iil 
9042 = 112 
0243 =1 113 
=1 ith 

0941 1115 
oa42 =1 116 
eai2 =1 117 
1 118 


DTC/PC BIGS IBMINC Include File Dummy Assembly V1.2 


SOURCE 

; EHH 
fs # Equates # 
: JSHEHHHEEEE 


RELEEEREEEEEAEEEEE EEE EEE EEE 


i “ 
; * Systes Board Peripherals # 
; JSESHHHEHHEEHE BEE EEE 
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jChannel @ word count register 
yChannel 1 word count register 
;Channe) 2 word count register 
;Channel 3 word count register 


sToggle byte pointer flip flop 


;Channel 1 upper page reg. address 
;Channel 2 upper page reg. address 


; BEEP 

: # DMA Controller # 

; JEBEHEEHEEHEEHEHEEEE 

Behe he nd cae - eee register 
r e qu Mode register 

PortDMARequest Equ @9H ;Software request register 

Port DMAsaskSngl Equ BAH ySingle channel sask 

PortDMAMask6lbi Equ @FH ;Global channel mask 

PortDMAStatus Equ QBH jStatus register 

Pe evan iecnt ae : ;Channel @ base register 

ount Equ 

ate ae equ ‘Channel 1 base register 
r unt Equ 

ie ih al oe : yChannel 2 base register 
r unt Equ 

Aah side el au 3 ;Channel 3 base register 
rt DMACh3Count Equ 

PortDHAToggle Equ OCH 

PortDHAReset = Equ OH jMaster clear 

2 tg eu in ;Global mask clear 
ortPageChan qu 

PortPageChane  Equ 81H 

PortPageChan3  Equ B2H 


;Channel 3 upper page reg. address 


HHH HEHEHE 


SEEEEEEEELEEEE EES EE EEEE 


; # Interrupt Controller # 
3 


jyInitialization command word 1 
sInitialization command word @ 
tInitialization command word 3 
yInitialization command word 4 


PortPICICw1 Equ 20H 
PortPICICW2 Equ 21H 
PortPICICW3 Equ 21H 
PortPICICw4 Equ 21H 
Port PICOCW! Equ 21H ;Operation command word ! 
PortPICOCW2 Equ 20H :Operation command word 2 
Port PICOCW3 Equ 20H ;Operation command word 3 
idl Equ i yNon maskable interrupt mask 

Mask Equ yMask command 
NMIUngask Euu «GH ‘Unmask command 
PicEoi Equ 20H End of interrupt 
; PH HHH 
: # Counter Timer # 
; HHH 
PortCTCloadCh@ Equ 48H sLoad channel @ 
PortCTCLoadChi Equ 41H sLoad channel 1 
rege 

r le qu Write mode wo 
PortCTCReadCh® Equ 4@H sRead channel @ 
PortCTCReadChi Equ 41H ;Read channel 1 
PortCTCReadChe Equ 42H gRead channel 2 
CTCRefreshDiv Equ 18 


$E ject 


sReal time clock divisor constant 


8086/8087/6088 MACRO ASSEMBLER 


LOC OBJ 


8262 


8899 


UNC CLC CC MeL 
ALARA APR LeRL rR ELL LL PULLER LOL APL LEA RR GLO GRC RL gL ALR RL 


uutenuei aw eu 


eee et ee eo 


LINE 


DTC/PC BIOS IBMINC Include File Dummy Assewbly V1.0 
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SOURCE 
; IAHBE HEHEHE 
; * Programmable Peripheral Interface * 
; JHE HEHEHE HEHE 
; SHEE 
H # Port A # 
: PELE 
DortPPIPorth Equ «GH sParallel Port A 
PortKBYDScan  Equ 62H sPort A is keyboard scan code 
; SEH 
4 # Port Bt 
: SHEE 
PortPPIPortB qu BIH sParallel Port B 
; JEHEHE HEHEHE 
H * Control and Flag Bits (B Port) # 
: JAHBHE HEHEHE 
IBSpkrGate  Equ O2G000018 ;Speaker gate bit 
PPIBSpkrData  Equ OeSRI010B sSpeaker data bit 
PPIBSpare Equ 020001008 sUnused bit position ; 
PPIBConfigSict Equ G00 10002 sSelect lower (@) or upper (1) switches 
PPIBDisSysParit Equ 880180828 sSystem board parity disable bit 
PPIBDisI¢Pariity Equ 001000008 :1/0 channel parity disable bit 
PPIBRelKbydC1k Equ B1GRGBRUB sKeyboard clock line release bit 
PPIBClearkbyd  Equ 198009003 iareeers clear 
PPIBStartUpMode Equ 101801018 ;PPIBSpkrGate + 
yeeePPIBSpare + 
je. ePPIBDislOParity + 
$..ePPIBClearKbyd 
' HHH 
H # Port C # 
: EE REE 
BortPPIPortC Equ 62H yParallel Port C 
PortConfigSw  Equ 62H sPort C (lower) are config. switches 


BPICLoopPost 


PPICNPInstalled Equ 
PPICRAM E 


PPICDisplay 
PPICDiskettes 


PPIBStdMode 
$Eject 


SEH EEE EEE 
# Control ard Flag Bits (C Port) # 
JEHHHEHE 

Equ O00800018 jLoop on post bit 

sNumeric processor installed 
gRam size bits 


Equ O0OH001 18 wDisplay type bits 

Equ 080011908 sFloppy disk type bits 

Equ 920190008 ;Speaker feed back bit 

Equ 001 00000 sOutput of CTC channel 2 

Equ 810020005 yStatus of 1/0 check flip flop 
Equ 1880000 yStatus of system board parity f/f 
JEHEEEEEHEHEEE 

# Control Port +* 

AEH 

Equ 63H sHrite mode word 

Equ 95H sStandard mode word = 99H 
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8006/8087/0088 MACRO ASSEMBLER 


LOC OB 


0001 
bdee 
BOF A 


LINE 


DIC/PC BIOS [BMINC Include File Dummy Assembly Vi.@ 


SOURCE 


5 wor we 


Sa woe On 


PortGCAButtons Equ 201K 
PortGCAOneShots Equ 2@1H 


Port6CaF ire 


20 we we 


PortExXPBusTest Equ 210H 
PortEXPHiAdrTst Equ 211H 
PortEXPWaitTest Equ 21iH 
PortEXPLoAdrTst Equ 212H. 


PortExPEnable 
PortExPStatus 


EXPEnStatus 
EXPWaitRgF lag 
EXPSwi tches 


$Eject 
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JHHBHEH HEHEHE 
# Option Adapter Peripherials + 
peer ti tre tt tttrittitiiiiititis! 


SSE EEE EE 


# Game Controller # 
SHAE HEHE 


jGame paddle button status 
yGame paddle one shot outputs 
Equ 201H 3Fire all one shots 


EEE 
* Expansion Unit +# 
ptitet etre rterciit ty 


jWrite/read bus test port 

yRead high order address latch 
;Clear wait test latch 

yRead high order address latch 

Equ 213H jl=enable expansion unit, @=disable 
Equ 213H *Read status of expansion unit 


EEESEEEELEE EEE EEE EEE 


# Control and Flag Bits + 
JHHGHEHHHEEHE HEHEHE 


Equ O3000081B yisenabled, @disabled 
Equ 000200108 yState of wait state request flag 
Equ 111106008 sDip switch state 
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8086/8087/8888 MACRO ASSEMBLER 


LOC OBJ 


LINE 


DIC/PC BIOS IBMINC Include File Dummy Assembly V1.@ 


SQURCE 


ee wwe wes 


PortSiolRxdata 
PortSiolTxdata 
PortSiolBaudLo 
PortSiolBaudHi 
PortSiolIntReg 
PortSiolIntID 
PortSioiLCR 
Port SiolMCR 
PortSiolLSR 
PortSiolMS€ 


PortSiocRxdata 
PortSioeTxdata 
PortSio@BaudLo 
PortSioeBaudHi 
PortSio2IntReg 
PortSiozIntID 
PortSio@LCr 
PortSio2@CR 
PortSio2LSR 
Port SioemSE 
$Eject 
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JHE EEE 


# fsynchronous Communications Controller # 
JHHHEE HEE 


HEHEHE HEHEHE 
* Primary Adapter # 

JAHHEHEEHHHEHEEEEE 

Equ 3FBH sReceive data DLAB=@ 
Equ 3F8H sTransmit data DLAB=2 
Equ 3FBH sReceive data DLAB=1 
Equ 3F9H yReceive data DLAB=1 
Equ 3FSH yInterrupt enable register 
Equ 3FAH sInterrupt ID register 
Equ 3FBH sLine control register 
Equ 3FCH sModem control register 
Equ 3FDH jLine status register 
Equ SFEH sModem status register 
JEBHEH HHH 

# Secondary Adapter # 

JEHHEHHEHH EEE EE 

Equ 2F 6H yReceive data DLAB=6 
Equ 2F BH yTransait data DLAB=2 
Equ 2F 8H sReceive data DLAB=1 
Equ 2FSH sReceive data DLAB=i 
Equ 2FSH sInterrupt enable register 
Equ 2FAH sInterrupt ID register 
Equ 2FBH jLine control register 
Equ 2FCH sModem control register 
Equ 2FDH jLine status register 
Equ 2FEH yModem status register 
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8986/8987/8888 WACRO ASSEMBLER 


LOC OBy 


LINE 


DTC/PC BIOS IBMINC Include File Dummy Assembly V1.8 


SOURCE 

i 

i 

i 

SiosBits Equ 
SioGBits Equ 
Sio7Bits Equ 
SiobBits Equ 


Sio@StopBits  Equ 
SiotnableParity Equ 
eg Equ 
SioStickParity Equ 
SioBreakBit Equ 
SioRecessBrgDiv Equ 
SioRxReady Equ 
SioOverrun Equ 
SioParityError Equ 
SioFramingErr Equ 
SioBreakDetect Equ 
SioTxReady Equ 
SiolxEapty Equ 
SioNoIntPending Equ 
SioRxLineInt § Equ 
SioRxDataInt Equ 
SioTxReadyInt Equ 
SioModeal nt Equ 
SioEnabRxInt  Equ 
SioEnabTxInt  Equ 
SioEnabStatInt Equ 
SioEnabModealnt Equ 
SioEnabDTR Equ 
SioEnabRTS Equ 
SioEnabOuT1 Equ 
SioEnabOUT2 Equ 
SiotnabLoo Equ 
SioDeltaCT Equ 
SiodeltaDSR Equ 
Siodeltakl Equ 
Siobel takX Equ 


SiolfTS Equ 
SioDSR Equ 
Siok Equ 
SioRX Equ 


see 


SicS@Baud Equ 
Sio73Baud Equ 
Siol10Baud Equ 
Sio134Baud Equ 
Siol3@Baud Equ 
Sio3@OBaud Equ 
Siob@@Baud Equ 
Siol2@0Baud Equ 
$i018@@Baud Equ 
Sio2@80Baud Equ 
Sioe400Baud Equ 
Sio3680Baud Equ 
$i048@0Baud Equ 
Sio720@Baud Equ 
$i09680Baud Equ 
$E ject 
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HHH Ee aE 


* Control and Flag Bits +# 
JHB HHHHHHE HEE EE 


jo data bits 

36 data bits 

37 data bits 

36 data bits 

ySet 2 stop bits 

yEnable parity 

ySet even parity if pai enabled 
sParity bit follows bit 4 of this byte 
+1 sets Tx output marking 

sSet hi to access BRG divisor latch 
sReceiver ready 

yRecelve overrun 

yReceive parity error 

sReveive parity error 

sReceive line is in break condition 
rTransmitter holding register empty 
‘All data bits have cleared transmitter 
jNo interrupt condition exists 
;Receiver caused interrupt 
yReception of data char, caused int. 
sTransmitter register went ready 
Modem status change caused interrupt 
sEnable data available interrupt 
sEnable Tx register empty interrupt 
sEnable status change interrupt 
yEnable modem change interrup 

sTurn on DTR 

Turn on RTS 

sTurn on OUTIL 

sTurn on OUT2 

yTurn on Loop 

sSet if CTS input changed state 

sSet if DOR input changed state 
sSet if RI input changed state 

ySet if RX input changed state 
yState of CTS input 

yState of DSR input 

;State of RI input 

sState of RX input 


JAH EEE 


# Baud Rate Divisor Values +# 
Peretrrrtriritttrrtrttit ts tiie 


sDivisor value for 5@ baud 
yDivisor value for 75 baud 
sDivisor value for 118 baud 
;Divisor value for 134 baud 
yDivisor value for 15@ baud 
sDivisor value for 380 baud 
sDivisor value for 6@@ baud 
sDivisor value for 1280 baud 
sDivisor value for 1888 baud 
sDivisor value for 2088 baud 
:Divisor value for 2400 baud 
:Divisor value for 3602 baud 
;Divisor value for 44@@ baud 
;Divisor value for 7200 baud 
sDivisor value for 9680 baud 


8986/8087/8888 MACRO ASSEMBLER 


LOC OB 


0382 


LINE 


OTC/PC BIGS IBMINC Include File Dummy Assembly V1.0 


SOURCE 


oe ne we 


PortProtoBase 


a ee oe 


PortHDCDat a 
PortHDCStat us 
PortHDCReset 
PortHDCSelect 
PortHDCDMAInt 


PortPrinteData 
PortPrinteStat 
PortPrint2Cnt] 


20 we ee 


PrintStrobe 
PrintAutoFeed 
PrintInit 
PrintSelectIn 
Print IntEnable 
PrintError 
PrintSelectQut 
oe 

Printfc 
PrintBusy 
$Eject 


HABE 
* Prototyping Card # 
JAHEHEHEHHEEE EEE 


Equ 308H 
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sBase address of prototype card 


FH 


# Fixed Disk Controller # 
preetetetiteriittrriitisrr Ss 


Equ 220H 
Equ 3e1H 
Equ 32 1H 
Equ 32eH 
Equ 323H 
SHEESH EEE 
# Parallel Printer +# 
peerititiretteritirirry 
Equ 378H 
Equ 379H 
Equ 378H 


yRead and write data port 

gRead controller status 

sReset the controller (write) 
‘Generate controller-select pulse 
sHrite pattern to DMA and Int register 


sPrinter data 
iPrinter status 
‘Printer control 


JHE HE EE EEE 


# Control and Flag Bits * 
JEU EEE EE 


Equ egeeae2 1B 
Equ 9890001 OB 
Equ a@eeiees 
Equ Q0001 0008 
Equ 820120008 
Equ 02001 
Equ 000100008 
Equ 201000008 
qu Bigeeeoes 
Equ 100008Q0B 


yPrinter strobe (low active) 

iRuto line feed (low active) 
jInitialize printer (low active) 
sSelect the printer (low active) 
Enable printer interrupts 

yPrinter error status bit 

sPrinter selected bit 

‘Printer pa cgi out status bit 

sPrinter signal state (low active) 
‘Printer busy tinal state (low active) 
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8086 /8087/B088 MACRO ASSEMBLER 


LOC OBJ 


a pa ba a Da pe a ee peek ee ee 


HUNHHRHRHKKHRHMHH EMA Ho 
—_ 


whit uw Hw th a 


LINE 


DTC/PC BIGS IBMINC Include File Dummy Assembly V1.0 


PortMonolndex 
PortMonoData 
PortMonofnt 11 
PortMonoStatus 
PortPrint 1Data 
PortPrint 1Stat 
PortPrint1Cntl 
MonoScreen 


an ae oe 


MonoResMode 
MonoVidecEnable 
MonoBl inkEnable 
MoncHorizState 
MonoVideoSt ate 


ewe a8 


MonoHorizTotal 
MonoHorizDispl] 
MonoHor i zSyncP 
MonoHorizS 
HonoVert Total 
MonoVertTotfd ) 
MonoVertDispl 
MonoVertS 
MonoInter lace 
MonoMaxScanlL ine 
MonoCursorStart 
MonoCursorEnd 
MonoSt artHigh 
MonoStartLow 
CursorHigh 
CursorLon 
$Eject 
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EHH HHS 


# Monochrome Video Adapter # 
JABHHEEEHEE HEE 


Equ 
Equ 
Equ 
Equ 
Equ 
Equ 
Equ 
Equ 


36845 Index register 

36845 Control registers 

sMode control port 

sSync and video states 

yMono board printer data 

Mono board printer status 

Mono board printer control 

sStart of monochrom adapter memory 


JAHEHHEHEH HEE HEHE 
# Control and Flag Bits + 
eeetrrretrtttitrttr sti te sg 


Equ 
Equ 
Equ 
Equ 
Equ 


O00000018 
008018828 
001800008 
803000013 
000012008 


;Set high resolution mode 
sEnable monochrome video 
yEnable blinking 
sHorizontal pulse state 
;Video output state 


JAH EEE EE EEE 


* Register Pointer Values * 
JERE 


Equ 
qu 
Equ 
EN 
u 
a 
qu 
qu 
Equ 
Feu 
qu 
Equ 
Equ 
Equ 


10 Oo ~~ Oe IO ee om 


;Pointer to horizontal total register 
sPointer to horizontal displayed 
;Pointer to horizontal sync position 
sPointer to horizontal sync wicth 
yPointer to vertical total 

yPointer to vertical total adjust 
yPointer to vertical display: 

;Pointer to vertical sync position 
sPointer to interlace mode bit 
sPointer to saxisum Scan line number 
sPointer to cursor start scan line 
sPointer to cursor end scan line 
Pointer to screen start address high 
‘Pointer to screen start address low 
;Pointer to cursor position address hi 
sPointer to cursor position address low 
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8086/8087/8088 MACRO ASSEMBLER 


LOC OBJ 


La, | 
Deel et teeth fm te eee at Prete ete th et be eh Be a ba pee Be pee 


ot bh Hot HM Mon ow oe 
os 


Wo tt 
aera ar 


LINE 


DIC/PC BIOS IBMINC Include File Dummy Asseably V1.9 


SOURCE 


PortColorMode  Equ 
PortColorColor Equ 
PortColorStatus Equ 
PortColorLPClr Equ 
PortColorLPSet Equ 
PortColorIndex Equ 
PortColorData Equ 


28 we we 


Color4@x23SABW = Equ 
Color4@x25ACo = Equ 
ColorB@x2SABW = Equ 
Color@@x25ACo  Equ 
Color3céx2Q@6BW Equ 
Colorse@x28@6Ce Equ 
Color640x2@Q6BN Equ 
ColorBkgnd Equ 
ColorIntense  Equ 
ColorPalette  Equ 


$Eject 


800011118 
082100003 
@0108000B 
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SHAH 
# Color Graphics Adapter +# 
JAH det 


sColor board mode select register 
yColor select register 

yColor status register 

Clear light pen detector 

yPreset light pen detector 

76845 Index register 

36845 Control registers 


JAH 
# Control and Flag Bits # 
JAH 


y40x25 alphanumeric black and white 
j40x2e5 alphanumeric color 

40x25 alphanumeric black and white 
388x25 alphanumeric color 

sde0x202 graphics black and white 
4328x208 graphics color 

3640x200 graphics black and white 
yBackground or boarder selection 
ySelect intensified colors 

yPalette toggle bit 


8686/8087/8B88 MACRO ASSEMBLER 


LOC OBJ 


LINE 


DIC/PC BIOS IBMINC Include File Dummy Assembly V1.@ 


SOURCE 


PortFDCData 
PortFDCStatus 
PortFDCAdpt Mode 


FDCHodeIntDmaEn 
FDCHodeMotor® 
FDCModeMotorl 


FDCStat Ce 
FOCStat DD 
FDCStatwC 
FDCStatSH 
FDCStatSN 
FDCSt at BC 
FDCSt ated 
FOCStatFT 
FOCStatWP 
FDCStat RY 
FDOCStatT@ 
FDCSt at TS 
FDCN 

FDCSC 
FOCHUT 
FOCSRT 
FDCGPLForsat 
FDCGPLReadWrite 
FDCHLT 


$Eject 


10:14:58 01/16/84 PAGE 


HHH EH 


# Flexible Diskette Controller # 
JASE EE 


Equ 3FSH ‘Floppy controller data register 
Equ SF4H sFloppy controller status register 
Equ 3F2H sAdapter mode register 


HEB EEE 
* Control and Flag Bits # 
UHHH HEHEHE EE 


Equ 006001003 ySelect drive @ 

Equ 89801018 iSelect drive 1 

Equ 900001188 7Select drive 2 

Equ @O0001118 iSelect drive 3 

Equ 800008003 sReset FDController 

Equ 000011808 sEnable FDC interrupts and dwa action 
Equ 82101008 sTurn on drive @ 

Equ 201001808 ;lurn on drive 1 

Equ 010881205 ylurn on drive 2 

Equ 188001088 sTurn on drive 3 

Equ 901800008 ySkip deleted mark bit 

Equ 818000008 ;MFM Select bit 

Equ 189200005 sMulti-track bit 

Equ 900000018 jUnit select bit @ 

Equ 80200108 sUnit select bit 1 

Equ 082001208 sHead select bit 

Equ 119888908 sInterrupt code status bits 

Equ 821¢0080B sSeek end status bit 

Equ 900108008 yEquipment check status bit 

Equ 888218008 Not ready status bit 

Equ 900001808 yHead state bit 

Equ 800000118 ;Drive state bits 

Equ 100880828 3End of cylinder status bit 

Equ 801908808 ;Data error status bit 

Equ 080180005 yOverrun status bit 

Equ 88201008 3No data status bit 

Equ 000000108 yNot writable status bit 

Equ 008000015 eae | address gark status bit 
Equ 118808808 sControl mark status bit 

Equ O2 1008805 ‘Data error in data field status bit 
Equ 003120005 strong cylinder status bit 

Equ 000019005 ;Scan equal hit status bit 

Equ 880001008 sScan not satisfied status bit 
Equ 020008118 ;Bad cylinder status bit 

Equ 180808008 Missing address mark in status bit 
Equ 891800008 Fault status bit 

Equ 008100003 jdrite protect status bit 

Equ G8802102B yReady status bit 

Equ 008800108 yTrack @ status bit 

Equ 088800015 tTwo side status bit 

Equ 2 sNumber of data bytes per sector 
Equ 8 jSectors per cylinder 

Equ 15 jHead unload time 

Equ 12 sStep rate time 

Equ 3 yGap length (during format) 

Equ 42 sGap length (during read or write) 
Equ 1 sHead load time 


8086/8087/8088 MACRO ASSEMBLER 


LOC OBJ LINE 
=i 478 

=i 479 

=1 488 

=1 4a 

=1 48e 

0002 =1 483 
0201 =i 484 
Bd82 =1 485 
@823 =] 486 
8204 =1 487 
0285 =1 488 
0606 =i 489 
O22? =i 498 
Be28 =1 491 
8009 =i 492 
808A =i 493 
Q0eB =1 494 
Bee =1 495 
Q8eD =1 496 
QGRE =i «497 
8oeF =i 498 
8212 =1 (499 
B211 =1 388 
e212 =1 Sl 
@0i3 =1  5@2 
8214 =1 583 
15 =1 384 
0016 =1 585 
@017 - =] 306 
0018 =1 507 
0219 =1  «5¢8 
@d1A =1 369 
@01B =1 318 
@8iC =1 Oil 
@81D =1 Sle 
@G1E =1 513 
OG1F =1 514 
=] 315 

=1 516 

1 517 


DTIC/PC BIQS IBMINC Include File Dummy Assembly V1.8 
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sNon maskable interrupt vector 


e driver vector 


sBootstrap loader trap vector 


SOURCE 

; JABBER 

j # Vector Location Definitions # 

F HEHEHE EEE 

TrapZeroDiv Equ Qa ;Divide ay zero vector 
Weanoaere Equ i sSingle step vector 

rapNe Equ 2 

Us Ug Equ 3 sBreakpoint interrupt vector 
Trap Equ 4 ‘Overflow interrupt vector 
TrapPrintScreen Equ ss] sPrint screen vector 
TrapUndefi Equ 6 yUndefined vector #1 
TrapUndef2 Equ 7 yUndefined vector #2 
TrapTimer Equ 8 yTimer interrupt 
Trapkeyboard  Equ 3 sKeyboard interrupt 
TrapIRe2 Equ 18 Interrupt 2 interrupt 
TrapSio2 Equ il Serial channel 2 interrupt 
TrapSioi Equ 12 *Serial channel 1 interrupt 
TrapHDisk Equ 13 sHard disk interrupt 
TrapFDisk Equ 14 if Loppy disk interrupt 
TrapPrinter Equ i5 sPrinter interrupt 
TrapVideo Equ 16 sVideo driver trap vector 
TrapEquip Equ 17 yEquipment query vector 
TrapMemorySize Equ 18 ec size query vector 
TrapFDDriver § Equ 19 sDiskett 

TrapSlODriver Equ 28 ySerial interface vector 
TrapCassette  Equ 21 Cassette (dummy routine) 
TrapkeyDrive  Equ 22 *Keyboard driver vector 
TrapPrintDrive Equ 23 sPrinter driver vector 
TrapBasic Equ 24 jCassette basic vector 
TrapBoot Equ 25 

TrapTOd Equ 26 ;Time of day vector 
TrapkeyBreak Equ 27 jKeyboard break address 
TraplimerBreak Equ 28 jTimer break address 
TrapVidParams  Equ 29 jVideo parameters 
TrapDiskParams Equ 3 sDisk parameters 
TrapVideokxt Equ a ;Video external pointer 
$E ject 


13 


8986/8887/8888 MACRO ASSEMBLER 


LOC OBJ 


LINE 


DTC/PC BIOS IBMINC Include File Dummy Assembly V1.0 


SOURCE 


. 
4 


DiskCadReset 


DiskCmdStatus 


DiskCadRead 
DiskCadWrit 
DiskCadVeri 


e 
f 


DiskCadForma 


$E ject 


HEHE ae HE HE 


# Diskette Driver Command Equates * 
Peeetetirrtttietitiiiifettitest titi ee 


Equ a 
Equ 1 
Equ 2 
Equ 3 
Equ & 
Equ ] 


10:14:58 
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6086/6087/8888 MACRO ASSEMBLER 


LOC OBJ 


LINE 
331 


DIC/PC BIOS IBMINC Include File Dummy Assembly V1.@ 


SOURCE 


. 
bf 
s 
1 


VidCadInit Equ 
VidCedCurType Equ 
VidCwdCurPos = Equ 
VidCadRdCurPos Equ 
VidCadRdLPenPos Equ 
beara Equ 
VidCadSerelilip Equ 
VidCmdScrollDn Equ 
VidCedRdCurChAt Equ 
VidCaddrCurChAt Equ 
VidCad¥rCurCh = Equ 
VidCadSetPalet Equ 
VidCudWrDot Equ 
VidCadRdDot Equ 
VidCadWrTTY Equ 
VidCadInfo Equ 


$Eject 


Wood OO > WIT we 


JHEHHEBHEHHHEEHHHEEHE HEHE EE 
H # Video Driver Command Equates # 
JERSE EEE EEE HEE EEE 
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1 
4 


5 


8086/8087/8088 MACRO ASSEMBLER  DTC/PC BIOS IBMINC Include File Dusmy Assembly V1.8 


LOC OBJ LINE SOURCE 
=] 554 
=] 35 : 
= 556 . 
=1 5i7 ; 
=] 58 
0082 =1 «559 SioladInit 
G02 =] 568 SicCadSend 
S882 ={ $l SioCadReceive 
803 =1 S62 SiofadStatus 
=] 563 $List 
564 
565 End 


ASSEMBLY COMPLETE, NO ERRORS FOUND 


SEEEELEE REELS EEE EEE EE EEE EEE EEE 


* Serial 1/0 Driver Command Equates + 
peer ttti irre trite pete titi tr titi t teas 


Equ 
qu 
Equ 


GIN eD 


18:14:58 81/16/84 PAGE 
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IBN PC/XT 8@86/8087/8288 MACRO ASSEMBLER Vi.1 ASSEMBLY OF MODULE PUBLICS 
OBJECT MODULE PLACED IN BIOSDATA. OBJ 
ASSEMBLER INVOKED BY: ASMG6 BIOSDATA, SRC 


LOC OBJ LINE SOURCE 
1 +1 $Title ("DTC/PC BIOS Public Data Definitions V1.0") 
@+1 $Pagelength (82) Pagewidth (132) Debug Nogen 
: Name Publics 
3 
8 ; Author: Don K. Harrison 
3 Start date: October 31, 1982 Last edit: December 7, 1983 
18 
11 
12 ; HEHEHE HEE 
13 : 2 Module Description # 
14 : SHU EESE ESE ESES 
15 
16 j This module contains variable (data) definitions for the 
17 : bios software 
18 
19 
20 
21 
22 ‘ (c} vispiay Telecommunications Corporation, 1983 
ee j 1] Rights Reserved 
z 
2 $E ject 


8@86/8887/6888 MACRO ASSEMBLER  DIC/PC BIOS Public Data Definitions V1.@ 18:42:38 @1/16/84 PAGE 2 


LOC OBJ LINE SOURCE 


ASHE EEE EE 


# Revision History * 
SHEE 


26 


0 me ae 


BIUSRRERESE 


$E ject 


8886/8887/8088 MACRO ASSEMBLER 


LOC OB LINE 


DTC/PC BIOS Public Data Definitions Vi.0 10:42:38 01/16/84 PAGE 


SQURCE 


te te 


$Eyect 


JHEHEHEHHEE EE 
# Public Symbols + 
HSH EE EEEES 


Public R5e32Base, PrinterBase, ee a NifgTest 
Public HemorySize, MfgirrFlag, Keyboard agi KeyboardF lage 
Public ee KeyBufHead, KeyBufTail, Ke buffer 
Public KeyBufEnd, SeekStatus, MotorStatus, MotorCount 
Public DisketteStat, FDCStatus, CrtMode, brtCol uns 
Public aha bel CrtStart, CursorPosn, CursorMode 
Public ActivePage, ActiveCard CrtModeset, CrtPalette 
Public IOROMInit, IOROSeqment, IntrFlag, TimerLow 
Public TimerHigh, TiserOverflow, BiosBreak, ResetFlag 
Public FixedDiski, FixedDisk®, brintTimedut, RS232TimeQut 
Public BufferStart, BufferEnd, PrintScnStatus 


8086/8087/8088 MACRO ASSEMBLER  DTC/PC BIOS Public Data Definitions Vi.@ 10:42:38 01/16/84 PAGE 


LOC OBJ LINE SOURCE 
56 ; JHE 
a H # Bios Data Segaent + 
58 4 SHEESH BE 
39 
——- 68 BiosDataArea Segment Public 
8280 61 RS232Base Label Word 
0082 ue 62 RS2321 Addr Dw t Dup(?) sActive RSe32 Card 1 
‘a 
{t 63 RS232eAddr Dw 1 Dup(?) sActive RS2eg2 Card 2 
O004 (1 64 RS2323Addr Dw 1 Dup(?) sActive RS232 Card 3 
2086 i. 65 RS2324Addr Dw 1 Dup(?) yActive RSe3e Card 4 
ve 
66 
00a8 67 PrinterBase Label Word 
8828 ae 68 PrintertAddr Dw 1 Dup(?) yActive Printer Card 1 
yee 
G88A Bs 69 PrintereAddr Dw 1 Dup(?) yActive Printer Card 2 
‘iia 
9280 i 78 Printer3Addr Dw 1 Dup(?} sActive Printer Card 3 
ae | 
GORE an 71 Printer4Addr = Dw 1 Dup(?) yActive Printer Card 4 
Te 
8018 {1 13 EquipFlag Dw 1 Dup(?) yConfiguration status 
eile Le 74 MfgTest Db 1 Dup(?} yNot used 
: 
8813 5. rb) MesorySize Dw 1 Dup(?) ;Memory size in K bytes 
ee 
6815 HN 76 MfgErrF lag Db 1 Dup(?) yNot used 
. 
0016 (l 7 Db 1 Dup(?) Not used 
‘i 
8217 (1 768 KeyboardFlagi Db 1 Dup(?) Keyboard 
: 
6818 a 19 KeyboardFlag2 Db 1 Dup(?) teee Status 
‘i 
9019 EA 8¢ Alt Input Db 1 Dup(?) ykeypad data 
- 
GB1A i, al KeyBufHead Dw 1 Dup(?) sPointer to head of keyboard buffer 
G81 i 82 KeyBufTail Dw 1 Dup(?) sPointer to tail of keyboard buffer 
ae 
BRIE (31 3 KeyBuffer Db 31 Dap (?) Keyboard buffer area 
7? 
) 
@83D (i 84 KeyBufEnd Db 1 Dup(?) y...and last byte of it 
”? 
) 
O@3E (1 85 SeekStatus Db 1 Dup(?} sDrives @-3 recalibrate status 
7? 
) 
O3F (1 86 MotorStatus Db 1 Dup(?) yDrives @3 sotor state 
9 


8086/8087/8@88 KACRO ASSEMBLER 


LOC OBJ 
6848 (1 
”? 
) 
0041 (1 
27 
) 
e842 (7 
19 


LINE 


87 


88 


ag 


91 


92 


93 


112 
112 


DTC/PC BIOS Public Data Definitions V1.9 


SOURCE 
MotorCount 


DisketteStat 
FDCStatus 
CrtHode 
CrtColums 
CrtLength 
CrtStart 
CursorPosn 
CursorMode 
ActivePage 
ActiveCard 
CrtModeSet 
CrtPalette 
TOROMInit 
TOROMSegaent 
IntrFlag 
TimerLow 
TimerHigh 
TimerGverf low 
BiosBreak 
ResetFlag 
FixedDisk! 


FixedDiske 


Print TimeOut 
PrintTOt 


Print T02 


Db 


Db 


Db 


Dw 


1 Dup(?) 
1 Dup(?) 
7 Dup (2) 
1 Dup(?) 
1 Dup(?) 
1 Dup(?) 
1 Dup(?) 
8 Dup (7) 
1 Dup(?) 
1 Dup(?) 
1 Dup(?) 
1 Dup(?) 
1 Dup(?) 
1 Dup(?) 
1 Dup(?) 
1 Dup(?) 
1 Dup(?) 
1 Dup(?) 
1 Dup(?) 
1 Dup(?) 
1 Dup(?) 
1 Dup(?) 


1 Dup(?) 


Word 
1 Dup(?) 


1 Dup(?) 
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yDrive turn off counter 


yReturned status byte 


3765 status bytes storage 


yCurrent mode 
yNuaber of coluans 
jLinear length of screen 


jScreen starting address 


;Cursor position on each page 


;Cursor mode 

sWhich page active 

31/0 address of active video 
sMode register setting 
yPalette setting 

sNot used 

yNot used 

yNot used 

yTimer 

jee Storage 

sTimer overflow flag 

yif D7=i, break key hit 

ySet to 1234 after initialization 
yUsed by hard disk 


sUsed by hard disk 


Printer 1 time out value 


Printer 2 time out value 


8086/8887/8088 MACRO ASSEMBLER 


LOC OBJ 
2 
) 
O7A (1 
7 
) 
ea7B 1 
ry) 
) 
@a7C 
M70 (1 
27 
} 
Q07D U1 
” 
) 
@O7E (1 
ei; 
) 
QQ7F (1 
” 
) 
ease (1 
2979 
) 
9082 (1 


7777 
) 


ASSEMBLY COMPLETE, NO ERRORS FOUND 


LINE 


114 


415 


DIC/PC BIGS Public Data Definitions V1.0 


SDURCE 


PrintTd3 


Print TO4 


RG23eTimeDut 
RS232T01 


RS232T02 


RG232T03 


RS232704 


BufferStart 


Buf ferEnd 


PrintScnStatus 


BiosDataArea 
End 


Db 


Db 


Ends 


1 Dup(?) 


1 Dup(?) 


Word 
1 Dup(?) 


1 Dup(?) 
1 Dup(?) 


1 Dup(?) 


1 Dup(?) 


1 Dup(?) 


182H 
1 Dup(?) 
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yPrinter 3 time out value 


sPrinter 4 time out value 


sSio 1 time out value 
ySio @ tise out value 
ySio 3 time out value 


y5io 4 time out value 


ylemporary keyboard driver data area 


jTemporary keyboard driver data area 


sPhysical address = S@@H 


qPrint screen driver status byte 


6 


8086/8087/8088 MACRO ASSEMBLER  DIC/PC BIOS Stack V1.8 10:43:14 81/16/84 PAGE 


TBM PC/XT 8@86/8087/8088 MACRO ASSEMBLER V1.1 ASSEMBLY OF MODULE STACK 
OBJECT MODULE PLACED IN STACK. OBJ 
ASSEMBLER INVOKED BY: ASMB6 STACK. SRC 


LOC OBJ LINE SOURCE 
141 $Tithe (DIC/PC BIOS Stack V1.2") 
2 +1 $Pagelength (88) Pagewidth (132) Debug Nogen 
; Name Stack 
i] 
: ; Author: Don K. Harrison 
: : Start date: October 25, 1983 Last edit: October 30, 1983 
18 
ll 
12 
13 ; EREREREEHEREEEEEEESEHEEE 
14 ; # Module Description + 
15 H HEHHAESE EEE EEEEE EEE 
16 
i : This module contains the stack segment. 
19 
28 
21 
22 H (c} ispley Telecosmunications Corporation, 1982 
23 F 11 Rights Reserved 
24 © Eject 


8086/98087/8888 MACRO ASSEMBLER  DTC/PC BIOS Stack Vi.@ 10:43:14 @1/16/84 PAGE 2 


Loc O87 LINE SOURCE 
20 : JHE aE 
26 : # Revision History # 
27 j ABBE 
26 
29 
® 
3i 
32 
Ka) 
34 
3 $Eject 


8056/8087/8888 MACRO ASSEMBLER  DTC/PC BIOS Stack V1.2 10:43:14 81/16/84 
LOC OBJ LINE SOURCE 
36 
v7 
38 ' HEHE HHEHEEEE EE 
39 ; # Public Symbols # 
49 ; JUHBHHHHE HEHEHE 
4i 
os Public StackTop 
44 ; JHBHEHEHHHEEEE 
45 : # Stack Segment + 
46 : AHHH 
4] 
-—- 48 BiosStack Segaent Public 
Ga0e (126 49 Dw 128 Dup (7) 3128 Level Temporary Stack 
a 
0108 3e StackTop Label Word 
—_ ot BiosStack nds 
Se 
53 End 


ASSEMBLY COMPLETE, NO ERRORS FOUND 


PAGE 
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8086/8087/8088 MACRD ASSEMBLER  DIC/PC BIOS Initialization Module Vi.@ 10:16:15 81/16/84 PAGE 


IBN PC/XT 8@86/8@87/8088 MACRO ASSEMBLER Vi.i ASSEMBLY OF MODULE INITIAL 
OBJECT MODULE PLACED IN INITIAL. OBJ 
ASSEMBLER INVOKED BY: ASM86 INITIAL. SRC 


LOC OB LINE SOURCE 
1 +1 $Title ("DIC/PC BIOS Initialization Module V1.@") 
2 +1 $Pagelength (8@) Pagewidth (132) Debug Nogen 
: Nave Initial 
5 
6 5 Author: Don K. Harrison 
ih 
4 ; Start date: October 16, 1962 Last edit: December 26, 1983 
10 ‘ 
11 ; HAHAH 
ie ; # Module Description # 
13 : JHBHEH HEHEHE 
14 
15 4 The Initialization module serves to initialize the system 
16 ; On power up, or during a keyboard or manual reset. initialization 
17 + = otcurs for the system board peripherals and all attached option 
18 ; adapters. Global memory location values are initialized by this modute, 
19 
21 
22 ‘ (c) asia Telecommunications Corporation, 1983 
fs ; 11 Rights Reserved 
a] $Eject 


8086/8887/8088 MACRO ASSEMBLER  DIC/PC BIOS Initialization Module V1.@ 10:6:15 @1/16/B4 PAGE 2 


Loc OBJ LINE SOURCE 


HHH HEHE 


# Revision History * 
SEEEHAEEEREEEEEEEEEE 


ARESBeBcR 


ae 


x $E ject 


8086/8087/8088 MACRO ASSEMBLER  DTC/PC BIOS Initialization Module Vi.@ | 10:16:15 01/16/84 PAGE 3 


LOC OBJ LINE SOURCE 
39 ; EEA 
4 : # Public Symbols # 
4l ; JRE EEE: 
42 
ve Public ResetEntry, POREntry 
45 
46 H SHEE 
47 ; # €Equates +* 
46 ; HAEESEEEEREE 
49 
0001 38 BiosCksErr Equ 000200018 ;Bios rom checksum error 
o@e2 31 MeaErr Equ 900008128 ySystem memory error 
0084 Se VidMerErr Equ 020991008 yVideo memory error 
0008 33 RefreshErr Equ 000010008 yMemory refresh error 
0012 34 First2kErr Equ 882100005 sError in first 2k of RAM 
@220 ah] TOROMErr Equ 00188008 yError in expansion ch. RON 
02D 36 AsciiCarriage Equ ODH yCarriage return 
@G8A eH AsciilineFeed  Equ QRH jline feed 
59 
68 $Include (IbmInc) 
Ps | F ABBE 
=1 = Ge i # Global Include File # 
=} «63 : JABEHEHHEEE EEE EEE 
=] 64 $Nolist 
384 $Eject 


8086/8087/B868 MACRO ASSEMBLER 


LOC OBJ 


LINE 


DIC/PC BIOS Initialization Module V1.2 


SOURCE 


BiosDatafrea 


BiosDatafrea 
BiosStack 
BiosStack 


HiStack Sesment 
HiStack Ends 


IntSegment 


IntSegment 


BasicSeg 


Basic 
BasicSeg 


TORDHSeg 
TOROMSeg 


lasherSegment 
DsZerc 
FiasherSegment 


MonoSeg 
MonoSeg 


ColorSeg 
ColorSeg 


$E ject 
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MHS 
# Data Segments # 
HEE EEE 


Segaent Public 

Extrn ape aia nd ee Bethe EquipF lag:Word 
Extrn pees fer:Byte, KeyBufHead:Word, KeyBufTail:Word 

Extrn BufferStart Word, uf ferEnd:Word 

Extrn PrintTimeQut:Word, RS232TimeQut :Word 

Extrn PrinterBase:Word, R523¢Base:Word 

Extrn IOROMInit:Word, [OROMSeqment sWord 

Extrn ete PositionCursor:Near, ClearScreen:Near 
Extrn CrtModesByte, CrtColumns:Hord 

Extrn CrtModeSet:Byte, ActiveCard:Word 


Ends 


Seguent Public 
Extrn StackTop:Word 
Ends 


Segment Public 

Extrn RAMVectors:DWord, ROMVectors:DWord, VideoTrapAddr:Diord 
Extrn BasicTrapAddr: DWord, N&ITrapAddrsD¥ord 

Extrn VideoGraphicsTrapAddr:DWord, PrintScreenTrapAddr:Dword 
Ends 


Segment Common 
Assume Cs:BasicSeg 
Org 8 

Label Far 

Ends 


Segment Common 
Ends 


Segment 
Label Byte 
Ends 


Segment Public 
Ends 


a Public 
Ends 


6086/8087/B8088 MACRO ASSEMBLER 


BQB2 31322F 32332F 36 
33444848 


DTC/PC BIOS Initialization Module V1.2 


SOURCE 


; 
. 
3 
: 


ERELESEEEEERERSE REESE RHEE 


# Segment at End of Remory +* 
ERELEELEEATEEEELEREE ER ER EE ERLE 


ReleaseDate Segment byte 


EEXEEEEETESELELELEEELE 


i é 
; # Release Date Code # 
; AEB EEE EEE 


Db 


ReleaseBate Ends 
$Eject 


*12/23/83DKH" 


18:16:15 


Bi/16/B4 PAGE 


a 


6086/8087/8038 MACRO ASSEMBLER 


LOC OBJ 


0) 
F 


EQ2G 

EQVe Se2al2d20202020 
20282028204D45 
476120424 94F53 
:  eecaaea 


E@ID 2D 
EQIiE @A 
EQIF GA 
ERR 28432920446973 
7QE56 179205465 
BCEGBZEF EDED7S 
BEGI6J61 74E95F 
im fe 
E@3F @e 
FO4% 436° 72706F 7261 
TAGIBF BE2C2831 
S833 


E@35 

E@55 BCQ3 
E@57 7803 
E@59 7882 


EQOB 


£G5B 


E@SB Ba---- 


E@SE EDS 
FREE C7eoaneeeeee =F 


BIC/PC BIOS Initialization Module V1.2 


SOURCE 


won ne A Re we 


Bias 


StartOfBios 
Logarfisg 


LogonéndHal f 


Se we ae 


PossiblePtrs: 


a 
q 
. 
b] 


POREntry 


ae ee 


Resetintry 
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EEE HEELS 
* Code Segment + 
JAB HE 
JAE Ee 


# Initialization Code Entry Point + 
peectiiitcstritirrtitttttriitsititoe cy 


Segment Common 


Extrn PrintScreenInt:Near, NMIIntsNear, IllegalInt:Near 
Extrn WordQut:Near, ByteDut:Near, ey estes 

Extrn PrintMessage:Near, Beep:Near, CharQut:Near 

Extrn MemoryTest :Near, RoatheckCx:Near 

Extrn ROMCheckOKsNear, Videolnit :Near 

Extrn CrtCrlf:Near 


GEQ20H 


Or yBegin BIOS 
cael Byte on 
Db ' 


MEGA-BIQS = =: Vi. 8" 


Db AsciiCarriage, AsciiLineFeed, AsciiLineFeed 


Db 1(C) Display Telecomaunications ',@ 


Db ‘Corporation, 1983? 


Db —AsciiCarriage, AsciiLineFeed, AsciiLineFeed, @ 


SERLELE ESET ERE EERE EEE 


* List of Printers +# 
ABE HEHEHE 


Assume Cs:Bios sTell ASMBG what we think 


Dw SBCH ;Printer on mono card 

Dw 378H yParaliei printer card (pri.) 
Dw 278H jParallel printer card (sec.) 
Org GEGSBH gAlign with PC and XT 
JHEGHEHHHE BEE 

* COLD BOOT + 

JERE EHHEHHEE 

Label far 

; Prepare for Cold Boot 


Assume Ds:BiosDatafrea 
Mov Ax, BiosDatafrea 
Mov Ds, Ax 

Mov ResetFlag,@ 
Assume Ds:Nothing 


sPoint at our memory 
ga. segment 
jeeeand be sure cold boot 


SEEEELEEEETEEEE 


# WARM BOOT + 
FEREELELEEELEEE 


Label Far 


; Turn off interrupts 
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§266/8287/6086 MACRO ASSEMBLER 


LOC OBJ LINE 
E@66 FA 713 

714 

715 

716 
EQE7 330 T17 
EWG9 7248 718 
EQER 7046 719 
EG6D 7844 Te 
EQ6F 7542 Tel 
EQ@71 7B40 Tee 
E073 850108 723 
EQ76 7438 Te4 
E878 7A39 725 
EQ7A ede280 726 
EQ7D 7834 Te7 
EQ7F 40 728 
E088 7131 729 
E@B2 DIE® 730 
E084 73D 731 
E@B6 7528 732 
E@88 DIE 733 
EQBA 7227 734 

735 

736 

737 
E@AC BBSSSS 738 
EQaF 739 
EQGF BBEE 74Q 
£891 BCD 741 
E@93 GBE1 T4e 
E095 SBD4 743 
£097 sede The 
E@99 SCDé 74S 
EQ9R 8ECE 746 
E@9D SCC? 747 
E@9F AEDF 748 
E@Ai SCD 749 
E@83 3D5555 738 
E@AG 7526 751 
E@AR F7D@ Tae 
E@AA 8BDa 733 
E@AC EBE1 734 
EQAE 730 
E@AE 3DAAAA 756 
EQB1 7401 TW? 
EQB3 798 
EQBs F4 759 
EQR4 762 

761 

762 

763 
EeB4 FC 764 
EQBS Base 765 
EQp7 EGAR 766 

767 

768 

769 
EQB9 BADAO3 778 
EQBC Beee TH 
E@BE EE Tle 
EQBF BABBG3 73 
E@te FECO 7714 
EeC4 EE 713 

776 

777 

778 
E8CS Begg 7? 
E@C7 E66 788 

781 

782 

783 

784 
E@C9 BRAS 785 
E@CB E661 786 

787 


DIC/PC BIOS Initialization Module Vi.@ 


SOURCE 


RegTest: 


Not5900: 


ErrAQas;: 
Ok8G88: 
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yReset interrupts till ready 
Test 8@88 Flags 
Ax, Ax Cy, Of Sf=0, 2,PF=1 


Err 08a fers jump if carry set 
ErrB@sa joes Jusp if overflow 
ErrBQaa jens juap if sn 
Erraaaa jess Juep if not zero 
Err BQB8 3.02 Jump if parity odd 
Ax, i 3 1=@, Pf=O 

Errde8a jes Jump if zero stuck 
Evrae t,o. Jump if parity stuck 
Ax, B@82H 32=0, Pf=1, Sf=8, OF=@ 
ErraQaa jee. Jump if sign set 

Ax ja» Cause overflow 
ErrB0aa ae ge if not overflow 
Ax, 1 jTest shifting 

Err88a y...should shift into cy 
Err 8@a8 t+e,and leave Ax clear 
Ax, 1 sShift zero in 

Errae@aa 3...should clear carry 


Test Registers 


Bx, QuuoH yAlternating pattern 
Bp, Bx f sleja dicate Gsiateiivie 
Cx, Bp i. . 

Gp, Cx Aa Shift . 
Dx, Sp ysothru . 
§s, Dx 3. Registers . 
$i,5s AS F 
Es, Si 1 ‘ 
Di, Es je F 
Ds, Di ve F 
Ax, Ds Fosascewesebee tas 

Ax, SaoaH yLike we started? 
Not 5555 free Jump if no 

Ax yInvert it 

Bx, Ax j...and wove to starting reg 
RegTest je.eand do again 

Ax, BRAARAH ySecond pass result? 
oxbeas fees Jump if ok 


yCommon error halt 


Begin the Initialization 


yClear direction flag 


Al, NMIMask sMask Ni 

PortNMIMask, Al q...interrupts till ready 
Stabilize Color and Monochrome Adapters 

Dx, PortColorMode sPreliminarily 

Al,8 js» disable 


Dx, Al js. Color adapter 
Dx, PortMonoCnt 11 j.eeand disable 
Al y..-monochrome adapter 


Dx, Al t...but enable Hi Res 


Setup Miscelaneous on Board 1/0 


Al, PPIBStdMcde yMode PPI 
PortPPIMode, Al j...for A,C=in, Beout 


ySpeaker gate = open 

3 

er BREST data = off 
3...5pare = hi 

Al, PPIBStartUpMoce 1,..Config. sw = sw@ - sw3 

PortPPIPortB, Al fue SYS ey = enabled 
3.+.1/0 Check = disabled 


7 


8@86/8087/8088 MACRO ASSEMBLER 


Loc Obs 


EQCD Bas4 


E@DD E620 
E@DF Bana 
EQE1 E68B 
E@E2 BQ41 
ERES EG@B 
E@E7 Be42 
E@E9 EGSB 
E@ER BQ43 
EQED E62 
E@EF BQFF 
EQF1 Esti 
E@F3 E6Gi 
EOFS Begg 
E@F7 E608 
EQF9 EGA 


EQFB B9@0GA 
EQFE 


E@FE E@FE 
EL@@ E481 
Eig 8AEa 
E104 E491 
E1@6 6604 
E1@8 F708 
£108 BDeee 
E1@D 3D70@2 
E11 7205 
Elle 3D9802 
E113 7603 


E117 
E117 Boesee 


E11A 

ELLA B36 
E1IC E642 
ELIE Beez 
Ei2e@ £648 
Elz2 E640 


E124 BALZ02 
E127 Bee) 
£129 EE 


E12h Bg---- 
EleD BEDS 
EieF Ab360e22 


E133 3208 
E135 SBDa 
£137 BASSAA 
E13A FC 
E135 


LINE 


DIC/PC BIOS Initialization Module Vi.@ 


SOQURTE 


RefTstLoop: 


DmaErr: 


RefOk: 


ClearLoop: 
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je» eKeyboard clk = released 
,..Keyboard clr = released 


Turn on Memory Refresh and Init DMAC 


Al, 016181808 
PortCTCMode, Al 
Al, CTCRefreshDiv 
PordCToLoudcnt Al 


PortPageChanl, Al 
PortPageChand Al 
PortPa Facet ty 
PortDMAR aa 
AL O101 1600" 
Port DMAMode, Al 
Al, e1eeeei® 
Port DMAMode, Al 
Al, 810000198 


Al, @18@001 1 

Por DAeWode, Al 

Al, OFF 
PoPtDMAChECount, Al 
Port DMACh@Count, Al 
Al, 908000208 

Port DMACommand Al 
PortDMAMaskSngs, Al 


Test if refresh working 


Cx, ®AGGH 


RefTstLoo 
Al, Port DMACh@Count 


Ah, 
Al, Port DMACh@Count 
Al, Ah 

Ax 

Bp,@ 

Ax, 27@H 

DaaErr 

Ax, 298H 

RetOk 


Bp, RefreshErr 


jSetup tiger 1 

«for LSB only, Mode 2, Bin 
jLoad timer 1 

ewith refresh divisor 
iSet DMA channel registers 
ive .»to base page 
y...00 all three 
je. channels just in case 
yReset DMA controller 


Mode DMA 

;.. Channel @ = Read, auto-init 
yMode DHA 

jeeaChannel 1 = Verify 

sMode 

ie cele 2 = Verify 


 Ghanrel 3 = Verify 
tiadd max count in 
.schannel @ for 
| peta of mexories 
Enable DMAC, 
ive ee unmask channel @ 
..turning on refresh 


gUn-noticable wait time 


jLoop for a short while 
ose count low byte 
Save it 

iget count high b 
yeeeput them oe iad 
qHow far have we counted? 
sClear error flag 
jLowest allowed = 27@H 

2 ben if below 
thing est allowed = 290H 
sJump if ok and continue 


yError = Refresh Error 


Initialize Real Time Clock (Channel @ of 8253) 


Al, @01101188 
Port CTCMade, Al 
Al,@ 


PortCTCLoadCh@, Al 
PortCTCLoadChd, Al 


Enable expansion box 


Dx, PortEXPEnable 
Al,t 
Dx, Al 


Retreive warm start flag 


iMode = 2 byte, Sq. Wave 
jee ebinary counting 
Se counter with @ for 
»Raxisua count and 
1. Slowest clock available 


jEnable any 
3, .@xpansion 
je. Chassis 


Ds:BiesDatafrea, Es:Nothing 


Ax, BiosDatafrea 


Ds, Ax 
Si, ResetF lag 


Wie at ‘al data area 
is ane wcll 
flag, keep it in Si 


Clear Mesory ceo parity bits) 


Dx, @ARSSH 


jhriting a zero 

3Bx is sequent pointer 
jLoad Dx with pattern 

Set forward direction 


PAGE 


§@86/8087/8988 MACRO ASSEMBLER 


LOC OBJ LINE 
E13B 33FF 63 
E13) GEC3 864 
EigF 268915 865 
E142 263815 866 
E145 730) 867 
E147 B9B828 868 
E14A F3 69 
E14B AB 
E140 80704 878 
E14F BOFFAG 871 
E152 75€7 a7e2 
E154 873 
E154 a9360008 E 874 
875 
876 
877 
878 
E158 3308 879 
E15A 8EC@ 880 
Ei5C BB--~- R Bat 
E1SF BED8 882 
E161 BCaeae E 883 
E164 Jo 884 
E165 53 885 
E166 BDeees 886 
E169 Edeaee E 887 
Ei6C 58 ; B88 
E16) Bidé 89 
E16F 038 898 
E171 Az@eed E 891 
E174 58 892 
£175 7382 893 
E177 8C1@ B94 
E179 895 
E179 Aewaee E 896 
E17C 330 897 
E17E 5@ 898 
EL7F 3 899 
E18@ 50 908 
E18i 58 921 
E182 58 902 
983 
904 
E183 Ba---- R 905 
E186 s&De 906 
£188 BCeese E 907 
988 
909 
919 
E1ap 1E 911 
E1aC BBQGEe 912 
E1aF @E 913 
E198 IF 914 
E191 B4@i 915 
E193 EbQaee E $16 
E196 iF 917 
E197 7485 918 
319 
928 
921 
£199 BGQEe@eeee! 3 922 
ELSE 923 
924 
925 
926 
E19E FA 927 
EL9F Bais 928 
EAL Eee 929 
ELAZ Boga 930 
ELAS E621 931 
ELA7 Bee 932 
EIA E621 933 
E1AB B@FF 934 
E1AD Eb2t 935 


DIC/PC BIOS Initialization Module V1.2 
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SOURCE 
Xor Di, Di yClear byte pointer 
Mov Es, Bx Set seqment register 
Mov Es:{Dil, Dx Store pattern 
Cup Dx, Es: (Dil yeeeand test, is memory 
Jne TopFound jee. there? if not, Jump 
Mov Cx, sCount 8K words, or 
Rep Stosw jy... 16K bytes to write zeros 
Add Bh, 4 ;Bump to next 16% sequent 
Cmp Bh, @A@H teee15 it last one? 
Jne ClearLoop t..e1f not, loop, else done 
TopFound: 
Mov ResetF lag, Si Put warm boot flag back after 
y.»-Clearing memory 
: Perform memory test on first 2K, regardless of warmth 
Xor Ax, Ax sSegment starts at @ 
Mov Es, Ax j.-. load Es 
Mov Ax, HiStack ySetup Hi mem stack 
Mov Ss, Ax je» -segment and 
Mov Sp, Offset StackTop ... Stack pointer 
Push Bp ;Save error from refresh test 
Push = Bx ySave Memory Size 
Mov Bp, 2 yCount = 2k 
Call  MemoryTest 360 test memory 
Pop Ax +Restore Memory Size 
ov 1,6 yConvert from # of 64K’s 
Shr fix,Cl ta..t0 # of IK's 
Mov MemorySize, Ax iStore memory size 
Pop Ax yRestore error from refresh 
Jnc FirstekOk feeejump if Ok 
Or Al, Firstekerr 3...else set error bit 
First2k0k: 
Mov MfgErrFlag, Al ;Save error status in memory 
Xor Ax, Ax yClear stack to zero 
Push AK sBy pushing some zeros 
Push = Ax yBy pushing some zeros 
Push = Ax yBy pushing some zeros 
Push = Ax yBy pushing some zeros 
Push = Ax yBy pushing some zeros 
Assume Ss:BiosStack, Ds:BiosDataArea, EssNothing 
Mov Ax, BiosStack ;Setup bios stack 
Mov Ss, Ax j...segment and 
Mov Sp, Offset StackTop 3...5tack pointer 
; Perform Checksum on Bios Rom 
Push Ds ySave our data segment 
Mav Bx, Offset StartOfBios  ;Point at our 
Push Cs Set Ds = Cs 
op cf i ear byte suecaite 
v gueedd sequen 
Call  RONCheckBK loi 
Pop Ds yRestore Ds 
Jz BiosRomOk t,,.and jump if all ok 
: Set error flag 
MfgErrFlag,BiosCksErr Error type = Bios checksum 
BiosRosdk: 
: Initialize Interrupt Controller 
Cli yInsure interrupts off 


Mov «Al, @@BL@a11B 
Out Por tPICICM, Al 


Al 

Qut PortPICICH2, Al 
Mov «Al, a@@O1e01B 
Out  PortPICICW4, Al 
Mov Al, Ldddt1118 
Dut  PortPICOCW1,Al 


yEdge trig, 4 byte vector, 
s...5ingle, ICW4 needed 
sAddress 8 

y.e.¢0 start vectors 
sBuffered mode, 

3... 8086/8088 node 

aMask off all 

zy... interrupts for now 


8886/8087/8086 MACRO ASSEMBLER 


LOC OBJ 


ELAF 1E 

E1B@ BB---- R 
E1B3 BECO 

E1BS @e 

ELBG iF 

E1B7 BIWEG2 

E1BA BFe@ed E 


E1Ch BEGE2G E 
EiC9 B918a9 


EtD@ EeFA 


Eide BB---- R 
E1DS BEDS 

E1D7 BBeeae 

ELDA 8484 

E1DC 

ELDC E88000 E 
EMDF 751i 

EiEt FECC 

E1E3 7OF7 

ESES 1F 


E1ES BFOBOd E 
EES Basaee 


EIFS c&C7G60e000000 £ 
EFA 26C7RG00800808 E 


E281 2OC7ebeeRenee? E 
Eee 26C7R6R28R0000 F 


EQ@F BAG19@ 
Eete EC 


EeiB EBAR 


E2id BE3880 


LINE 


DIC/PC BIOS Initialization Module V1.2 


SOURCE 


NullIntLoop: 


VectorLocp: 


BasicCkLoop: 


NoBasic: 


Po 
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Initialize Interrupt Vectors 


Es: IntSegment 


Ds 

Ax, IntSequent 

Es, Ax 

Cs 

Ds 

Cx,6 

Di, Offset RAMVectors 


Ax, Offset I)legalInt 
Ax, Cs 

eee 

Si, Offset ROMVectors 
Cx,24 

fx, Cs 


VectorLoop 


ySave Ds value 

jLoad segment register 
geeeWith interrupt segment 
+Get fixed seq value = Cs 
fos Tae in fx, load Ds 
er irst 8 vectors to 
Start at first interrupt 


sGet offset of illegal int 
yStore offset 

sGet seqment of illegal int 
Store seqeent 

Loop till done 

;From rom based vectors 
yInitializing 24 more vectors 


Move data from ROM to RAM 
sGet segment of illegal int 
yStore SEG value = 

yLoop till 32 vectors written 


Test if Basic exists and plug vector if it does 


Ax, BasicSeg 
Ds, Ax 

Bx, Offset Basic 
Rh, 4 


ROMCheck&K 
NoBasic 

Ah 

BasicCkLoop 

Ds 
Ds:BiosDatafrea 


Di, Offset BasicTrapAddr 


Ax, Offset Basic 
Ax, BasicSeg 
Ds 


Ds 
Ds:BiosDat afrea 
Plug NMI Vector 


sPoint 

jeseat Basic 

sOffset of basic in our segment 
y.e.there are 4 8k segaents 


yCheck one 

jee jump if checksum fails 
jeeecount - { 

j...loop till done 

sRestore data ay register 
je..and infors 6 

yPoint at basic trap address 
;Offset = @ 

y.2.store it 

;Segment = F600 

j.eestore it 

jkeeping the stack in order 


yRestore data segment 
je» sand inform ASM 


EssWord Ptr NMITrapAddr, Offset Ne Int 


Plug Print Screen Vector 
Es:Kord Ptr PrintScreenTrapAddr, Offset PrintScreenInt 
Plug User Graphics Pointer with 8002 


Es:Word Ptr VideoGraphicsTrapAddr, @ 
Es:Word Ptr VideoGraphicsTrapAddr + 2, @ 


Enable NMI Interrupts 


Dx, Port PPIPortB yPoint at PPI port B 
Al, Dx jReset parity check edge 
Al, PPIBDisSysParit or pelapisit arity j...t¢rigger 


My free oh ee ; 
Blanc (PPIBDisSysParit or PPIBDisIOParity) ;Release 
l 


Dx, gees flip rae clear inputs 
Al, NMJUnmask 0k, careful 
PortNiIMask, Al sa.eunmask NMI interrupts 


Initialize Both Mono and Color Adapters, Regardless 
of Their Presence 


Ax, 38H ;Switch value if mono 


1@ 


8286/8@87/8088 MACRO ASSEMBLER 


LOC OBJ LINE 
E228 AZB8R0 E 1812 
F223 B4ed 1812 
Feces CD12 1814 
E227 Ba2aRe 1815 
EecA Asvaae E 1@16 
Feed Bade 10817 
E2erF Chie 1@18 
1019 

1828 

1821 

E231 E462 1822 
E233 240F 1023 
E235 Ace 1824 
E237 BRAD 1925 
E239 £661 1826 
E238 E462 1827 
E23) B184 1@28 
Eear DeE@ 1829 
F241 @AC4 1038 
E243 B4ee 1831 
E245 Asveae E 1@32 
E248 2438 1032 
Ech 7369 1834 
Ee4t BB23E4 1835 
Ee4F 2bAzaaRe E 1936 
E253 EBG3 1837 
1038 

1839 

1040 

1841 

E255 EbRRee E 142 
1843 

1244 

E208 1845 
E258 Bees 1046 
E2SA E661 1047 
25C BISE29 1048 

E2oF 1049 
Foor Eee 1058 
E261 Baca 1851 
E263 E66: 1952 
E265 3482 1053 
Ecé?7 Ebb! 1854 
Ech Beeees E 1@55 
EZ6C AZ8G8G E 1856 
E2GF AsBBad E 1@57 
E272 A38a02 E 1058 
E275 W5eead 1839 
E78 Azaeea E 1868 
E27B EB4998 1061 
1062 

Eels 1063 
1064 

Eets EIeUee E 165 
E2ce 166 
1867 

1868 

1069 

Eovh BBi4i4 1878 
F209 ALIVE E 1871 
Eett As82a0 E 1072 
E2CF B80181 1072 
Eade AZe802 E 1874 
EeDS Aseees E 1875 
1076 

1877 

1078 

E2Ds BESSEe 1879 
E2DE Breede 1880 
EebE B9BIa0 1081 
ECE t 1882 
EPE1 2EBB14 1@83 
E2E4 BeAA 1084 
Eet6 EE 1885 


E2E7 BOFF 1086 


DIC/PC BIOS Initialization Module V1.2 


SOURCE 

Mov Ett tal Ax 

Mov «AH, VidCadInit 

Int dra vee 

Mov Ax, 

Hov Eaeigt Lay Ax 

Mov Ah, VidCedinit 

Int TrapVideo 

A Setup Configuration Data 

In Al, PortPPIPortl 

And Al, 000011118 

ov 

Qut PortPPIPortB, Al 

In Al, PortPPTPortl 

Moy Cl, 

Shi Al, Cl 

Or Al, Ah 

ov fh, @ 

Nov Equi pFlag, Ax 

And Ally api 1eabo 

Inz DisplayExistsJme 

ov Ax, Offset NullReturn 

Jmp Short Dont InitVideos 
DisplayExistsJmp: 
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jy... adapter 

:Command to initialize 
sInitialize monochrome adapter 
sSwitch value if color 
j...adapter 

sCommand to initialize 
sInitialize color adapter 


sGet first 4 switches 
jeeinto upper 


gece hk 
Hov AL, PPIBConfigSlct + PPIBStartUpMode ;Select upper 


y...Configuration switches 
sGet next 4 switches 

yShift it 

js.einto upper nibble 

jee.and OR with lower switches 
;Store configuration 

j.e.Word (upper byte = @) 
tIsclate display bits 

j..eand jump if display exists 
joet offset of null int return 


Mov Es:Word ptr be a aael ae _fseand force into video vector 
ont i 


; nit the videos 


: Set Video Card Per Switches 


Call Videolnit 


Dont InitVideos: ; 
Hov Al, 820818008 
Dut PortPP1PortB, Al 
Hov Cx, 18582 


sProc init’s per switches 


Initialize Keyboard and Keyboard Buffer 


sClock line = @ 
j.2.to signal resote 8048 
jDelay for approx. 


KeyResetLoop: 
Loop KeyResetLoo 2.220 milliseconds 
Boy Al, 118019808 ;Release clock and clear 
Dut PortPPIPortB, Al y..shift register and int 
Xor Al, 1e8@eaee8 j». request f/f, then enable 
Dut PorsPPIPortB, Al gene Shift register output 
Mov Ax, Offset KeyBuffer ySetup keyboard buffer 
Kov KeyBufHead, Ax yHead pointer 
Mov KeyBufTail, Ax y1ail pointer 
Mov Bu ferStart, Ax yStarting address of buffer 
Add Ax, 32 sLength of buffer = 32 
Nov BuferEnd, Ax je..5tore it 
Imp OverNNIEntry jJump over PC NMI entry point 
Org GESTS sAlign with PC 
NMI Int ;Jump to parity err. service 
OverNRiEntry: 
: Initialize Default RS-232 and Printer Tiseout Values 
ov Ax, 1414H Translated to 4 bytes of 
Nov PrintTimeBut (81, Ax y...0ecimal 285 corresponding 
Mov Print TimeQut (21, Ax e2.¢0 4 possible printers 
Mov fix, 2181H Translated to 4 bytes of 
ov RSP32T imeDut [01], Ax j...deciaal {5 corresponding 
Mov RS232TimeOut [2], Ax +...¢0 4 possible RS-222 ports 
; Determine Printer Hardware and Setup Base 1/0 Addr. 
Mov Si, Offset PossiblePtrs ;Point at list of printers 
Hov Di,@ yReset index value 
Mov Cx,3 sOnly three printers 
PrintBaseLoop: ; 
Mov Dx, Cs: [Si] ;Load Ax with first (next) base 
Mov Al, @AAH sTry to write bit ai 
Dut Dx, Al t...¢0 printer por 
#Bus (@FFH) Force floating bus hi 


6G56/8087/8088 MACRO ASSEMBLER 


LOC OB LINE 
E2eB EC 1088 
EPEC 3CAA 1889 
E2EE 7ot6 1898 
EeF@ 9950800 E 1091 
ESF 4 47 1892 
E2FS 47 189 
EerFé 1¢94 
E2FG 46 129 
EQF7 46 1096 
EoF8 EE? 1097 
E2FA 8BC7 1098 
EeFC B13 1899 
EeFE dete 1188 
E208 ARBAB E 1121 
11€e 
1183 
1104 
E303 BFooae 1185 
11@6 
E309 Ba1A 1187 
£308 EE 1188 
E3@C BRFF 1109 
£318 EC 11k 
E311 3C1A {ite 
E312 7308 1113 
E315 C7B50008F S23 =£ 1114 
ESiB 47 1115 
EZ1C 47 1116 
E3iD Lit 
E3iD BAFBQ2 1118 
E322 BIA 1119 
Edee EE 1128 
E323 BFF 1iel 
E327 EC 1123 
E326 3Cih 1124 
A 7388 1125 
E32C C7A5OB@OF BBE =E 1126 
2 47 1127 
E333 47 1128 
£334 1129 
£334 BBC7 1122 
E336 OB860180 E 1131 
1132 
1133 
1134 
E338 BABIG2 1135 
E33D EC 1136 
ESSE Ager 1137 
£348 7305 1148 
E342 BORER OGLE E 1139 
E347 - 1148 
1141 
1142 
E347 FoQbe08001 E 1143 
E34C 7408 1144 
ES4E Bi3E00OR34i2 E 1145 
E304 7483 1146 
E356 EGE8G0 1147 
E339 1148 
1149 
1150 
£359 BR-—-- R 1151 
1152 
Egat iE 1153 
ESSD 1154 
E35D SEDA 1155 
EZSF BBevee 1156 
E362 8887 1157 
E364 3DS5RA 1158 
E367 7537 1159 
1160 
£369 Ba---- R 1161 
ES6C BECO 1162 
ES6E 3264 1163 
E378 BA47@2 1164 


SOURCE 


PrinterNot There: 


SioiNotThere: 


SioeNot There: 


NoGameCard: 


NoMenTest; 


ExpansionChk: 


DIC/PC BIOS Initialization Module V1.0 


Al, Dx 

Al, BRAK 

PrinterNot There 

lca 
i 

Di 


Si 
Si 
PrintBaseLoop 
Ax, Di 

5 


Al, Cl 
Byte ptr EquipFlagti,Al 
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jeeethen read data back 
yensand see if it took 

gees juep if not 

j..-else, store base address 
t..eand inc dest. pointer 
ya..to next slot 


yIncrement source to 

jeoonext try 

t...and loop (max of 3 times) 
sCalculate and put 

gee.into position 

j...by rotating end around 
sSave the # of printers 


Determine RS~232 Hardware and Setup Base 1/0 Addresses 


Di,? 

Dx, PortSioiL CR 
Al, 000110108 
Dx, Al 

(OPFH) 

fl, Dx 


Al, 000110128 
SiolNotThere 


RS232Base[Di3, PortSiol Rx 


Di 
Bi 


Dx, PortSio2LCR 
Al, 00211010B 


Dx, Al 
(OFFH) 
Al, Dx 
Al, 000118108 
SioeNotThere 


RS232BaselDil, PortSioeRx 


Di 
Di 


Ax, Di 
Byte ptr EquipFlagti, Al 


yReset index value 

yUse LCR for test 

sSetup LCR for standard mode 
tan2a8 a test of it's existance 
yForce tb ecg hi 

jy... then read back data 
s...and see if it took 

tae jump if not else store 
bata jy.» store base address 
t,..and inc dest. pointer 
geseto next slot 


yUse LCR for test 

Setup LCR for standard mode 
jee.aS a test of it’s existance 
Force poe bus hi 

s...then read back data 

y.s.and see if it took 

t...juap if not else, store 
bata jeeeStore base address 
y...ard inc dest. pointer 
y...to next slot 


sOr in the number of RS232 
t...ports into equipflag 


Determine Game Card Equipsent and Signify it 


Dx, Port 6CAButtons 
Al,D 


Xx 
Al, 000011118 
NobameCa 


yRead buttons 
jeerand check 
s...that all are = @ 
if no game card, else 


rd Pr 
Byte ptr EquipFlagt1,0e01eeoaB ;...signify i 


Test memory if required 


Byte Ptr EquipFlag, 1 
was 


joMenTes 
ResetF lag, 12341 
NoMewTest 
SysMemTest 


yTest Post switch 

jae jump if post off 
yTest warm boot 

jeeeand jump if ward 
+...215@ do a memory test 


Initialize Expansion Modules, if Present 


Dx, IOROMSeg 
Ds:Nothing 
Ds 


SignatureNG 
Es:BiosDatafrea 
Ax, BiosDatafrea 
Es, Ax 

Ah, fh 

Al, ([Bxt2] 


:2K ROMS from COWG2 to Foe 
ySave data segment 


Hake ROM data segment 

3Bx = pointer to first word 
yee Get it 

sIs signature correct? 

jee. Jump if it isn’t 


sPoint Es at our data segment 


;Clear accuw upper and put 
3ee:length in accum lower 
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LOC OBJ LINE 
£373 8185 1165 
E375 D3E@ 1166 
E377 30a 1167 
E379 Bie4 1168 
E378 D3EQ 1169 
E37D 8BC8 1178 
ES7F Ebeaad E 1171 
E382 7o16 1172 
E384 S¢ 11723 
E385 c6C7A680000308 E 1174 
E38C 2b8C1E88a0 E 1175 
£391 26FFIEG@C2 E 1176 
E396 SA 1177 
E397 EBQHI@ 1178 
ES9A 1179 
EGA 2baaREeReeza =CE 1188 

1181 
ESA 1182 
E3A@ 81Ce8aae 1183 
E3A4 1184 
ESA4 81FA---- R 1185 
E3AB 7CB3 1186 
ESAA iF 1187 

1188 

1189 

1192 

1191 
ESAB E421 1192 
ESA 24BC 1193 
ESAF E62t 1194 

1195 

1196 

1197 
E3B1 C7R6OBO8S412 =F 1198 

1199 

1282 

1201 
E387 Bag2 1282 
ESB9 ERROR E: 1283 
ESBE 3309 1204 

1285 

1206 

1207 
ESBE F&Q69008FF E 1208 
E3C3 743F 1289 

1218 

12it 
E3Co l2i2 
Eats 90 1213 
E3C6 EoD 1214 
Est Bate i215 
ESCA Eaeeee E 1216 
EScb 1 1217 
ESCE GE 1218 
ESCF iF 1219 
E3D@ BEC4E49R 1228 
E2D4 EBRBOe E 12et 
E3D7 iF eee 

1223 

1204 

1225 
E3D8 BaGESs 1226 
E3DB Easeee E 1227 
ESDE AveERe E 1228 
ESE1 CoQbeeaen E 1229 
E3E6 EBRQO2 E 1230 
E3E9 BAIDeO 1231 
E3EC Eb8800 E 1232 
ESEF E8éaad E 1233 
ESF2 S@ 1234 
ESF3 E8sade E 1235 
ESF6 58 1236 
ESF7 3C59 1237 
ESF9 7489 1238 
E3FB 3C79 1239 


DIC/PC BIOS Initialization Module Vi.@ 


10:16:15 @1/16/84 PAGE 


SOURCE 
Rov (1,9 peluily Ax by 32 to get 
Shl Ax, C1 sa.eactual length in paragraphs 
Add Dx, Ax Add it to pointer 
Mov 1,4 Convert length from paragraphs 
Sh Ax, C1 ato bytes 
Mov Cx, Ax sMove count to cx for prot. 
Call = ROMCheckCx Check rom checksua 
Jnz ROMErr Imp y...if bad, skip initialization 
Push = Dx ySave ointer during init 
Mov TOROMInit, 3 ‘Of fse into jump vector 
Hov TOROMSequent, D js Segment into juap vector 
Call DWord ptr TORO Init j-..and call init code 
Pop Dx yRestore pointer 
Jmp ROMDone i...and Jusp, rom init’ ted 
ROMErrJmp: 
MfgErrFlag, [OROMErr yIndicate Error 
SignatureNG: 
fidd Dx, 88H sSkip to next ROM space 
ROMDone: 
Cap Dx, BasicSe yHas bat our last ROM? 
Jl ExpansionChk eos at Dx {F6GQ, do some nore 
Pop Ds yRestore data segment 
Assume Ds:BiosDatafrea te. eand tell ASM 
: Enable Keyboard, Floppy and RIC Interrupts 
In Al, PortPICOCw1 jUnmask ew maid 
And Al, 101111888 3...and keyboard 
Gut PortPICOCW1, Al 3.2. interrupts 
; Signal that we are warm 
Mov ResetFlag, 1234H yWarath code 
; Beep once 
Moy Bl,é jMedius length Beep 
Call = Beep yProd operator 
Xor {x, Cx ;Pause 
;: Report any errors 
Test  MfgErrFlag,11111111B Any Bits set? 
Jz Boot 1tUp jeeeqump if not 
; Beep again for error 
BeepPause: 
Nop jevea 
Loop ree y.ewhil 
Moy Bl, yMediua iength Beep 
Call = Beep Prod operato 
Push Ds ;Save Ds for later 
Push = Cs iLoad code pointer 
Pop Ds ..inte data pointer 
Mov Si, Offset Errorlsg Point at error message 
Call  PrintMessage ...and print it 
Pop Ds Restore Ds 
: Get response 
Mov Ax, QB@EH ;Position cursor to end 
Call = PositionCursor ta. for printing error number 


Mov Al a Sil 
Mov Ripert 1an)8 


Call ByteQut 

ov Ax, @@1DH 

Call PositionCursor 
Call = KeyIn 

Push Ax 

Cali CharQut 

Pop Ax 

Cup al,?¥? 


sGet the error 

..clear the error 
sPrint byte 

‘Position cursor to end 
eae fOr retreiving answer 
yGet keyboard data 

;Save Ax 

sEcho keyboard response 
jRestore Ax 


jee Jump and continue if yes 
jeeey? 
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LOC OBY 


ESFD 7405 
E3FF EAGGEQ---- 


£404 


E404 Eaea00 
E4e7 Ageeae 
E40A 50 
E4QB BE 
E4@C iF 
E40) BEGGE@ 
E418 Ebanee 
£413 58 
E414 3058 
E416 7383 
E418 EBQ000 
E41B 

E41B BE4QE@ 
E41E E8800 


E421 CD19 

E423 

£423 CF 

E424 53797374656D28 
4572 726F 722823 
2B2VACZV43EFEE 
746966 73653F 28 

E449 OG 


1268 


DIC/PC BIOS Initialization Module V1.8 


SOURCE 


Boot Itup: 


SkipBootCr: 


NuliReturn: 


Errorlisg 


$Eject 


10:16:15 81/16/84 PAGE 


eee Jane ap and continue if yes 
ResetEntry jRe-boo 


Logon with copyright notice 


ClearScreen ;Clear the screen 
Al, Byte Ptr CrtColumms ;Save colunn count 
Ax gecein stack 
Cs yMake Ds 
Ds jo. 0S 
Si, Offset LogOnMsg yPoint at message 
PrintMessage jes.and send it 

X yRestore coluwn count 
Al, 88 fe2o1S it )= 88? 
SkipBootCr Jump if 8@ or above 
Crttrif 4...@l5e do a carriage return 
Si, Offset LogOnéndHalf Point at message 
PrintMessage jeeeand send it 

oot i 
Boot it Up . COre 
TrapBoot - 


sNull return from interrupt 
‘System Error # , Continue? ',@ 
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LOC OB! LINE 
1269 
1278 
1e71 
le7e 
E441 1273 
E441 Baal 1274 
£443 B9O72e 1275 
F446 CD18 1276 
E448 BEBIES9@ 1e77 
E44 iE 1278 
E44) GE 1279 
E44E iF 1288 
E44F EBRDG2 E 1281 
1282 
1283 
1284 
E452 iF 1285 
E453 AGIRee E 1286 
E456 3C87 1287 
E458 BB~--- R 1288 
E458 BBigae i289 
E45 7305 1298 
E468 BB---~ R 1291 
E463 Beds 129; 
£465 1293 
E465 53 129 
E466 30 1295 
1296 
1297 
1298 
E467 Ber ooaa E 1299 
E46B 4D 1388 
E46C 4D 1301 
E46) 1E 1382 
E46E 43 1383 
E46F 43 1304 
E470 SEDB 1385 
1306 
E472 BBAGGO 1387 
E475 BEC 1308 
E477 Céeceneesc 1389 
E47 1310 
E47C F7C58708 1311 
E48@ 7505 {ite 
E482 6036008073 1313 
E487 1314 
E487 Eaeeae E 1315 
E48A 7287 1316 
E4aC 4D 1317 
E48D 7OED 1318 
E4SF iF 1319 
E498 EBG798 1328 
E493 1321 
E493 1F 1322 
1322 
£494 aeeceaeees E 1224 
1325 
1326 
E499 1327 
E499 Agvaae E 1328 
E49C 24F7 1329 
E49E 65160000 E 1332 
E4Ae 830204 133i 
E405 EE 1332 
E4A6 SD 1333 
E4A7 27 1324 
E488 1333 
E4ha Eaeaee E 1336 
E4AB 4D 1337 
E4AC 75FA 1338 
E4RE 7305 1339 
E4BG BeRERDeRe4 E 1349 
1341 
1342 
E4B5 1343 


DIC/PC BIOS Initialization Module Vi.@ 


18:16:15 81/16/84 PAGE 


SOURCE 
; JAE 
H * System Memory Test # 
: JAH EHH 
SysMemTest Proc = Near 
Bov Ah, VidCedCurType Turn off cursor 
Mov Cx, 087 qeaaby putting it on an 
Int pray etey Ao crge tai | scan line 
Mov $i, Uffset MemTstiisg yPoint at message 
Push = Ds 3Save current Ds 
Push Cs Send message to screen 
Po Ds seeetelling about 
Call = PrintMessage t...memory test 
; Determine which video memory 
Pop Ds yRestore data segment 
Mov Al, CrtMode yWhich monitor? 
Cmp Al,? jy... Monochrome? 
Mov Bx, ColorSeg yPoint at color 
Mov Ax, 16 je..and say 16K 
Jne ColorMon 3...jump if color 
Mov Bx, HonoSeg j...else point at monochrome 
Mov Al,4 jessand only 4K 
Colorton: 
Push = Bx j...and save for memory test 
Push = Ax t4..Save length of video mem 
; Test system memory 
Mov Bp, MemorySize jGet # of 1k Blocks in mem 
Dec Bp ;... leave the first one alone 
Dec Bp y...and the second one 
Push Ds ySave data segment 
Inc Bx jeosMake Seg 
Inc Bx 3...paragraphs into display 
Mov Ds, Bx jLoad segment for message 
Assume Ds:FlasherSegment aay seguent for DsZero def. 
Mov Bx, 2048 / 16 sPoint at 3rd 
Mov Es, Bx y..e1K block with Es 


Mov Dstero, O5CH 


Test Bp, 111B 
Inz sally: 
Xor DsZero, 873H 


QuterMemLoop: 


SkipFlip: 

Call  MemoryTest 

Je LoadMemErr 

Dec Bp 

Jnz QuterMemLoop 

Pap Ds 

Jmup TestVidMem 
LoadMemErr: 

Pop Ds 

fissume Ds:BiosDatafrea 

Or MfgErrF lag, NewErr 

F Test video memory 
TestVidMem: 

Mav Ai, CrtModeSet 

And Al, 121101118 

Mov Dx, Act iveCard 

Add Dx, 4 

Qut Dx, Al 

Pop Bp 

Pop Es 
OuterVidLoop: 

Call MemoryTest 

Dec p 

Inz QuterVidLoop 

Inc MenTstRtn 

Or MfgfrrF lag, VidMemErr 

Turn Video Back On 

MemTst Rtn: 


Flasher character “\" 


3Flip only if lower three bits 
+...0f counter are = @ 
t,..alternate between \ and / 


qeeetest oe 
j.eeand jump if bad 
;Bp has count 

Pe be and loop 
yRestore data segment 
jee.and go test video 


jRestore data segment 
jeeeand tell ASH 
sLoad error number 


yCurrent setting of video reg 
j..eturn off video 

gen. On 

jer ractive 

y...Video card 

sLength in 1K blocks 
ye..5egment of video memory 


y...d0 the test 

yBp has count 

fee. jump and loop 
tReturn if ok 

;...else, set error code 
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LOC OBJ LINE SOURCE 
E4B5 ERGRe2 E 1344 {all Videolnit ;Initialize the video 
E4BB C3 1345 Ret s...else return 
E4B9 54697374696E67 1246 MeaTstMsg Db ‘Testing Memory /',8 jMemory test message 
2040656D6F 7279 
2Q202F 
E4CA 02 


1347 SysMemTest Endp 


—— 1349 Bios = Ends 
1358 End POREntry 


ASSEMBLY COMPLETE, NO ERRORS FOUND 
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IBM PC/XT 8086/8087/6088 MACRO ASSEMBLER Vi.1 ASSEMBLY OF MODULE BOOT 
OBJECT MODULE PLACED IN BOOT. OBJ 
ASSEMBLER INVOKED BY: ASMA6 BOOT. SRC 


LOC OBJ LINE SOURCE 

1 +1 $Title (DTC/PC BIOS tae Loader Vi.°) 

2 +1 $Pagelength (80) Pagewidth (122) Debug Nogen 

3 Name Boot 

5 

: ; Author: Don K. Harrison 

g ; Start date: October 25, 1983 Last edit: December 27, 1983 
18 

11 

i2 ; HAH 

13 i # Module Description # 

14 : HEHEHE EHH EE 

15 

16 H This module is called by interrupt 19 (TrapBoot). 
17 : It’s function is to read in the boot image from the diskette 
e ; and transfer contro! to it. 

1 

ra 
zi 

FS : {c) pais Telecommunications Corporation, 1983 
ed H 1] Rights Reserved 

ra 

e $f ject 


A066/8087/8088 MACRO ASSEMBLER  DTC/PC BIOS Bootstrap Loader V1.0 10:16:45 1/16/84 PABE 2 


LOC OBJ LINE SOURCE 


28 ‘ HEHE EEE EE 


* Revision History * 
HAAR EERE ESE 


ns 
wi) 
ne ne on 


38 $E ject 


8@86/8087/8088 MACRO ASSEMBLER  DTC/PC BIOS Bootstrap Loader Vi.@ 10:18:45 @1/16/84 PABE 3 


LOC OB! LINE SOURCE 
39 
43 H EHHELEEELELEL ELE ELE 
4i j # Public Symbols # 
42 H EH EE 
43 
ie Public BootDriver 
46 H HEHEHE 
47 : # Equates # 
4G ; EEE 
49 
7088 38 Boot Offset Equ 7COCH ;Location of loaded boot code 
QG8D Sl AsciiCarriage Equ @DH yCarriage return code 
800A ze AsciiLineFeed  Equ @AH jLine feed code 
a4 $Include (IbwInc) 
=} 55 : JEHHBEHHEH HEE 
=1 56 H # Global Include File # 
=} 57 H SFLFLEET ELT EE SAPP 
=| 58  $Nolist 
376 $E ject 


8@86/8087/8888 MACRO ASSEMBLER 


LOC ob LINE 


DIC/PC BICS Bootstrap Loader V1.0 18:18:45 81/16/84 PAGE 


SBURCE 

H JAA HEHE aE 
j # Data Segments + 
‘ HAE EEE ES EE 


IntSegaent Segment Public 
Extrn FloppyParamsTrapAddr:DWord, BasicTrapAddr: DWord 


IntSeguent Ends 
Boot Sequent Seguent at @ 
Enis 


Boot Segment 

BasicSeg Seguent Common 
Assume Cs:BasicSeg 
Or @ 

Basic Label Far 

BasicSeg Ends 

$Eject 
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Loc OBJ LINE 
598 
599 
£80 

681 
682 
683 

a 604 
685 
686 
687 

698 

689 
618 

E6F2 611 
ble 

E6F2 613 
E6F2 ESQBFF 614 
615 
E690 616 
E608 617 
E6@@ FB 618 
E691 Ba---- R 619 
£604 BEDE 620 
621 

G22 

623 

E606 C7eseeoeeees =F 624 
E6QC BCeEeete E 625 
626 

627 

628 

E61@ BAR4ED 629 
E613 630 
E613 50 621 
E614 Bade 622 
E616 CDi3 633 
E618 7219 634 
EGiA Beal 635 
E61C B42 636 
Eb1E BABBAe 6237 
E621 a&ce 638 
E623 BB@O7C 639 
E626 B1di 648 
E628 BSee 641 
Eb2A CD13 642 
E620 7285 643 
644 

E62E EAQA7C---- R 645 
646 

E633 647 
E633 58 6468 
E634 FECS 649 
E636 75DB 650 
651 

652 

E638 65 
E638 @he4 654 
E63A 7a17 659 
E63C ERR? E 656 
E63F € 657 
Eb4B 1F 658 
E641 BE7BEG9R 659 
E645 EbGaUa E 668 
£648 E8080 E 661 
E64B Eb@2e2 E be 
EG4E BAG4FF 663 
F651 ECR 654 
665 

666 

667 

E652 668 
E653 3300 669 
E655 SED8 672 
E657 C4B60002 E 671 
E658 ACC3 672 


DTC/PC BIOS Bootstrap Loader Vi.@ 


10:16:45 01/16/84 PAGE 


SQURCE 
; HEHEHE 
; # Code Segment +# 
: HEHEHE 
Bios Segaent Common 
Extrn Flop amen ClearScreen:Near 
Extrn Print sage:Near, KeyIn:Near 
Assume (Cs:Bios, Ds: IntSeqment 
Org QEGF2H sAlign with Xt and Pe 
BootDriver: 
Jap BootCont inue ;Jump to code 
Org BEGRRH yPlace code above init 
BootCont inue: 
$i yEnable Interrupts 
Mov Ax, IntSequent sPaint at vector segment 
Mov Ds, Ax j.e.make it data segment 
; Initialize pointer to disk tables 
Mov Word ptr FloppyParamsTrapAddr, Offset FloppyParamsPointer 
Mov Word ptr FloppyParamsTrapAddr + 2, Cs 
; Load from diskette 
Mov Ax,4 yReset try = 4 times 
RetryLoop: 
Push = Ax ySave count 
Fov Ah, @ yReset the diskette 
Int TrapFDDriver yo. System 
dc BootFailed jCarry set on error, try again 
Mov Al,1 sRead in 1 sector 
Mov Ah, DiskCadRead ;Command in Ab 
Hov Dx, Boot Segaent yPoint Es to bootstrap segment 
Mov Es, Dx zee. (which is at zero) 
Mov Bx, Root Offset sLoad Bx with address of 
Mov Cl,1 ...first byte in boot area 
Mov Ch,@ 3C] = sector 1, Ch = track @ 
Int TrapFDDriver sExecute disk 1/0 software 
Jc BootFailed yJump and retry if error 
Assume Cs:BootSegment yAssume causes Jmp instr. to 
Jmp Far ptr BootOffset y.. reference BootSequent 
Assume (Cs:Bios ;Back to Bios 
BootFailed: 
Pop Ax gRestore count 
Dec Al jes.and reduce it by 1 
Inz RetryLoop yee keep trying tlt Q 
: Ask user . . What gives? 
WhatGives: 
or Ah, Ah ySecond time around? 
Inz TryBasic ...try to load basic 
Call  ClearScreen ;Clear the screen 
Push (Cs Print 
Pop Ds feo Message 
Mov Gi, Offset LoadDiskMsg j...telling him 
Call = PrintMessage s...to insert diskette 
Call = Keyin ;Get his response 
Call ClearScreen sClear the screen 
Kov Ax, @FFO4H sTry 4 more times, set flag 
Imp RetryLoop qeeetry again 
: Try to load basic 
TryBasic: ; 
Xor Ax, Ax ;Point at interrupt segment 
Mov Ds, Ax jeeeto Check 
Les Ax, BasicTrapAddr je.eif basic available 
Mov Bx, Es t,e.for booting 
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Loc OBJ LINE 
EESD 3D8800 673 
E660 Béeewd 674 
E663 7503 673 
E665 81FB---- R 676 
E669 7500 677 
E66B ERQBBB---- R oe 
£678 496E7365727428 689 
6469736B657474 
bS20H9bE204452 
495645204 12E 
E68B 6D 
E6ac 8A 681 
E68) 28202020507265 
737320616E7920 
6BES792E 
EG5F a 
682 
aes 683 
684 
B85 


ASSEMBLY COMPLETE, NO ERRORS FOUND 


DTC/PC BIOS Bootstrap Loader V1.@ 10:18:45 81/16/84 PAGE 


SOURCE 


LoadDiskMsg 


Bios 


End 


Db 


Ends 


Ax, Offset Basic jCheck offset 

Kye Clear ae incase failure 
WhatBives jee jump if mot basic 
Bx, BasicSeq Check sequent 
WhatGives {eee Jump 1f not basic 
Basic je. e@lse startup basic 


‘Insert diskette in DRIVE A.’ ,AsciiCarriage 


AsciiLineFeed, ' Press any key.',@ 
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IBM PC/XT @86/8087/8288 MACRO ASSEMBLER Vi.1 ASSEMBLY OF MODULE R5232 
OBJECT MODULE PLACED IN RS232. OBJ 
ASSEMBLER INVOKED BY: ASMBG RS232, SRC 


LOC OBJ LINE SOURCE 
1 +1 $Title (DTC/PC BIOS R5232 Driver V1.0") 
2 +1 ed get (88) Pagewidth (132) Debug Nogen 
q Name R52 
a 
é 3 Author: Don K. Harrison 
; Start date: October 38, 1983 Last edit: December 28, 1983 
18 
t1 ; ABH 
i : # Module Description # 
13 ; perrrtttiett ttt terest tg 
14 
15 : This godule contains the serial interface driver. The driver 
7 ; is entered via interrupt 28 (TrapS]ODriver). 
18 
19 
22 
ei 
Fate ; {c) bisilay Telecommunications Corporation, 1983 
23 p 1] Rights Reserved 


rae $Eject 


8O86/8087/B088 MACRO ASSEMBLER DYC/PC BIOS RS232 Driver V1.0 10:20:07 1/16/84 PAGE 2 


LOC OBJ LINE SOURCE 


a H HEHE EEE EEE 
2g i # Revision History # 
38 ‘ EERE EE EEEEEESE 


34 $Eject 


BQ86/8@87/8088 MACRO ASSEMBLER  DIC/PC BIOS RS232 Driver V1.0 10:20:07 01/16/84 PAGE 3 


LOC OBJ LINE SOURCE 
39 
48 ; JABHEHEEHEHEHEHEEE 
4t j # Public Symbols # 
42 ; pritrtrtttititt tt ity) 
43 
ie Public CommsDriver 
46 ; HEHE 
47 f # Equates # 
48 ; HAHAH 
49 
se ; All Equates in include file: IbmInc 
52 $Include (IbuInc) 
> | reeetiretretr trite 
=] 4 i # Global Include File # 
=] 55 : pretttittti¢tittttrrtt toss 
=| 55  §Nolist 


576 $Eject 


B@G6/8057/80G8 MACRO ASSEMBLER DIC/PC BIOS RS232 Driver V1.9 10:28:07 81/16/84 PAGE 


LOC GBI LINE SOURCE 
577 
576 ; HEHEHE 
5749 ; # Data Segments + 
56e j SHEE 
581 
ia ze IntSegaent Segment Public 
os 384 IntSeguent Ends 
585 
pars 586 BiosDataArea § Segment Public 
387 Extrn RS2e32Base:Word, RS232Tisefut sByte 
= 388 BiosDataArea = Ends 
589 $Eject 


8086/8087/8086 MACRO ASSEMBLER 


Loc OBJ LINE 
398 
591 
392 
593 
594 
= 595 
596 
597 
598 
E729 599 
600 
E729 1704 621 
E72B 8883 682 
E72D 800i 583 
E7eF Caad £04 
E731 600 
£733 3080 686 
E735 1888 687 
£737 BCR 608 
689 
39 612 
£739 FB Gil 
E73R 1E 6lz2 
E73B 32 613 
E730 SE 614 
E73) 57 615 
ETSE 51 616 
E73F 33 617 
£748 BB---- R 618 
£743 BEDB 619 
E745 8BFA 
£747 BBDA b21 
E749 DIES 622 
E74B BB978000 E bed 
E74F @BD2 624 
E7ol 7410 625 
E753 QRE4 6 
E735 7413 627 
E737 FECC 628 
E7O9 7438 629 
E7SB FECC 638 
E7OD 7454 631 
E7SF FECE 632 
E761 7464 633 
3 634 
E763 SB 635 
E764 99 626 
E765 OF 637 
E766 SE 638 
E767 SA 639 
E768 1F 648 
E769 CF 641 
642 
643 
644 
645 
646 
E76R 647 
648 
649 
E76A 50 659 
E76B BADE 651 
E76D 830203 602 
E778 BeBe 653 
E77é EE 654 
E773 B184 659 
E775 Del3 656 
E777 S1E3BEGO 657 
E77B 2EBBA729E7 638 
E788 B3EAG3 659 
E783 EE 668 
E784 42 661 
E785 8AC4 662 
E787 EE £63 
664 


DTC/PC BIOS R232 Driver V1.9 


SOURCE 
H JAE 
; # Code Segment + 
: preretiitr ett cri ecg 
Bios Segment Cosson 

Assume Cs:Bios,Ds:BiosDatafrea 

Org @E729H 
BaudTable Dw S1011@Baud 

Dw $1015@Baud 

Dw 5103@@Baud 

Dw S10608Baud 

Dw $1012@0Baud 

Dw $1024@0Baud 

Dw S1048@0Baud 

Dw STOS6@@Baud 
CommsDriver Proc = Far 

Sti 

Push Ds 

Push Dx 

Push Si 

Push Di 

Push Cx 

Push x 

Mov Bx, BiosDataArea 

Mov Ds, Bx 

Mov Di, Dx 

Fov Bx, Dx 

Shl Bx, i 

Mov Dx, RS232Base [Bx] 

or Dx, Dx 

Jz sTbReturn 

Or Ah, Ah 

dz SibInit 

Dec Ah 

2 510Send 

Dec Ah 

Jz SioReceive 

Bec Ah 

Jz SioStatus 
510Return: 

op Bx 

Pop Cx 

Pop Di 

Pop Si 

Pop Dx 

Pop Ds 

Tret 
; pereessttrissrerirrtrre ss 
: # SIO Initialization * 
' JE EEE EEEE 
S10Init: 

; Set the baud rate 

Push Ax 

Mov B1,Al 

Add Dx,3 

Mov Al, SioAccessBrgDiv 

Qut Dx, Al 

Mov 1,4 

Rol 


iC! 
And «Bx, @BgaDORBARIAI 110B 
Mov Sere ae 


Sub Dx, 
Gut Dx, Al 
Inc Dx 
Mov 1,Ah 
Out Dx, Al 


10:20:87 61/16/84 PAGE 


sAlign with Pc and Xt 


311@ Baud 
315@ Baud 
4308 Baud 
3680 Baud 
31208 Baud 
32400 Baud 
74888 Baud 
79680 Baud 


yRestore interrupts 
ySave all but Ax 
je..Dx has card % 


ySetup our 

j...data sequent 

ySave card # for send/receive 
yCalculate index 

j.eeinto base addresses 
yFetch base address to Dx 
jlest for existance 

f.e.and Jump if not there 
;Command = 8? 

jeaeif it is, jump to init 
sCommand = 1} 

j.e.if if is, jump to send 
;Command = 2 

je.if if is, jump to receive 
‘Command = 3? 

jaseif it is, return status 


yRestore registers 


jeesand return 


;Gave mode 

‘Save parameters 

sPoint at S10 control reg 
yee sand pe at baud port 
t...(Dlab = 1) 


sRotate parameter left 4 places 
ae orm baud index into 
t,..end, 3rd and 4th bits of Bx 
3e2.and retreive divisor 
Restore 1/0 pointer to base 
Send lower divisor to S10 

Set 1/0 pointer to base+i 
ane upper divisor 

sa22td 


8086/8087/8088 MACRO ASSEMBLER 


LOC OBJ LINE 
669 

656 

£788 58 667 
E789 42 668 
E7BA 42 669 
E7BB 241F 670 
E78D EE 671 
672 

673 

674 

E7BE Bees 675 
E79@ 4A 676 
E791 4A 677 
E792 EE 678 
679 

682 

681 

E793 4A 682 
E794 EB31 683 
684 

685 

686 

687 

688 

796 689 

E796 58 690 
E797 B@23 691 
E799 B720 69¢ 
E79B Bsee 693 
E79D £84900 694 
E7AQ 7509 695 
E7A2 Q3EAR5 696 
E7A5 39 697 
E7A6 BACL 698 
E7A8 EE 699 
E7A9 EBRE 708 
E7AB 701 
E7AB 59 782 
E7AC 8AC1 783 
E7AE 704 
E7AE Baclee 785 
E7B1 EBBQ 7106 
7@7 

788 

789 

718 

7M 

E7B3 Tle 
E7B3 BQQ1 713 
E7BS B720 714 
E7B? Bael 15 
E7B9 Ed2dea 716 
E7BC 7SF@ 717 
E7BE O8E4iE 718 
E7C1 A3EAG5 719 
E7C4 EC 720 
E7CS EBSC Tel 
722 

723 

Ted 

725 

726 

Tel 

E7C7 728 
E7C7 82Ceas 729 
E7CA EC 730 
E7CB BAED Tal 
E7CD 42 732 
E7CE EC TR 
E7CF EBS2 T34 
738 

736 

737 

738 

739 
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SOURCE 
‘ Send line control 
Pop Ax yRestore gode 
Inc Dx sPoint at line 
Inc Dx y...contro] register 
find Al, @0@080011111B sStrip baud bits from 
Out Dx, Al y...mode and send to S10 
‘ Disable all interrupts 
Mov Al,@ Turn off all 
Dec Dx sPoint back at interrupt enable 
Dec Dx eee register 
Dut Dx, Al 3.e-rand set to no ints 
; Point back at base 
Dec Dx yPoint back at base 
Jmp Short STOStatus yJump and return status 
ABH EEE 


. 
3 
b 
q 


SioSend: 


SendTimeDut H 


ReceiveTimeDut: 


Si0Receive: 


nee en we 


$105tatus: 


CommsDriver 


# SIG Send Character # 
FERRE 


Ax ;Save the character 
Mov Al, SioEnabRTS Or SioEnabDTR 7Al has modem setup 
Mov Bh, SiolTS Or SioDSR 3Bh has value for modem reg 


Nov Bl, SiaTxReady 3Bl has value for line reg 
Call SetupandWait ySetup port and wait 

Jnz SendlimeQut sIf non zero, timeout 

Sub Dx,5 sPoint back bo data port 
Pop Cx ;Recover char, saving Ah 
Kov Al,Ci jaeethen move it into 

Out Dx, Al y.0eAl and output it 

Jinp SioReturn ye..and return Ah = status 
Pop Cx yRecover data byte 

Mov Al,Cl zee.into Al, preserving Ah 
Or Ah, 180000002 yReturn error bit and 

Jmp SioReturn jee return 


PEELE REREEE EEE EL ESEEEEEELE 


# SIO Receive Character # 
pretttrittitiititttt titted 


tov Al, SicEnabDTR Al has modem setup 

Mov Bh, SioDSR 3Bh has value for modem reg 
Mov Bl, 5ioRxReady 3Bl has value for line reg 
Call SetupandWait yoetup port and wait 

Jnz ReceiveTimeQut sIf non zero, timeout 

And Ah, @80111108 sMask off error flags 

Sub Dx, 5 sPoint back at data register 
In Al, Dx yGet the character 

Jump SioReturn g...and return with it Ah=stat. 


JASE 
# SIO Status Return Procedure +# 


& Ah = Line control register # 
AHHH HEHEHE 


Add Dx,5 yPoint at line status 

Iv Al, Dx go..and get it 

Mov Ah, Al t...and put in Ah for return 
Inc Dx ‘Point at modem status 

In Al, Dx jeeeget it and return it 
Jnp SioReturn jeeedn Al 

Endp 


LERELLLELETEREEELEEE ERLE ELLE RE EEE 
* Proc used by Setup and Wait # 


6 


8086/8087/8088 MACRO ASSEMBLER 


LOC OB: LINE 
742 
TAL 
T4e 
E7D1 743 
E7Di BAIDAA E 744 
E7DS 74S 
E7D5 eBC9 746 
E707 reyi 
E7D7 EC 748 
E7D8 Shee 749 
E7DA 227 TH 
E7DC 3AL7 Tal 
E7DE 7488 Te 
E7E@ EeF5 733 
E7e2 FECB 734 
E7E4 75EF TH 
E7E6 @AFF T36 
E7EB Tal 
E7EB C3 738 
739 
76@ 
761 
762 
783 
764 
769 
E7E9 766 
E7E9 820284 767 
Ev7eC EE 768 
E7ED 42 763 
EVEE 42 TTB 
EVEF 32 77 
E7F@ ESDEFF Tle 
ETF3 SB Ti3 
ETF4 7586 T7T4 
E7F& 48 TH 
ETF7 BAFB 776 
E7F9 ESDSFF 777 
EVFC 778 
E7FC C3 773 
788 
7Bi 
—-- 782 
783 
784 


ASSEMBLY COMPLETE, NO ERRORS FOUND 


DTC/PC BIOS RS232 Driver Vi.e 


SOURCE 


i 
: 


TimeDutProc 
SioTimeQuter: 


SioTimel nner: 


MatchReturn: 


TimeDutProc 


wh oe we eee 


SetupAndWait 


TimedQut : 
Set upAndlait 
Bios 


End 


18:20:87 @1/16/84 PAGE 


# fh = Line control register # 
Peertttttitettititiiitete tetris ss 


Proc Near 

Mov Bl, RSe3eT imeDut (Di) ;Di=Card # (dx at entry) 
Sub Cx, Cx jMaximua loop count 

In Al, Dx jGet status 

Mov Ah, Al jea.into Ah 

And Al, Bh sAnd with Bh #ask 

Cup Al, Bh ge.eand test if it matches 

Je MatchReturn joes jump if it does 

Loop  SioliseInner j;Loop till Egeliyes happens 
Dec ...decrementing outer pointer 
Jnz SiolimeDuter ;...and looping till timed out 
Or Bh, Bh sReturn timed out, z flag clear 
Ret gees indicating error 

Endp 


AHHH EEE EEE ESE 
# Kodes ae Status Wait Routine # 
£ Ah = Line control register % 
JASE 


Proc =- Near 

fidd Dx, 4 ;Hove from base to modem control 
Out Dx, Al Fog = pad and output command 

Inc Dx ;Move 1/0 pointer to modem status 
Inc Dx jy... register 

Push = Bx Save 

Call =: TimeQutProc yWait for timeout or correct status 
Pon Bx sRestore Bx regardless 

Jnz TimedOut jJuap if not timed out 

Dec Dx *Point back at line status 

Mov Bh, 81 jMatch for line register 

Call = TimeutProc tWait for timeout or correct status 
Ret jeesand return 

Endp 

Ends 


8086/8087/8086 HACRO ASSEMBLER DTC/PC BIOS Keyboard Interface V1.0 1@s21:35 01/16/84 PAGE 


IBN PC/XT 8@86/8087/B088 MACRO ASSEMBLER Vi.1 ASSEMBLY OF MODULE KEYBOARD 
OBJECT MODULE PLACED IN KEYBOARD. OBJ 
ASSEMBLER INVOKED BY: ASM&6 KEYBOARD. SRC 


LOC OBJ LINE SOURCE 
1 +1 $Title (’DTC/PC BIOS Keyboard Interface V1.2") 
2 +1 $Pagelength (80) Pagewidth (122) Debug Nogen 
3 Name Keyboard 
4 
5 
: ; Author: Don K, Harrison 
4 ; Start date: November 3, 1983 Last edit: December 17, 1983 
1@ 
11 : JHE 
12 ; * Module Description +* 
13 ' SHEEP EEE 
14 
15 ; This module handles the keyboard interface through interrupt 
; ; 16 (TrapKeyDrive). 
i6 
19 
20 ake. 
et ; {c) esate Telecommunications Corporation, 1983 
22 1} Rights Reserved 
23 
24 $F ject 


6086/8887/8@88 MACRO ASSEMBLER  DTC/PC BIGS Keyboard Interface V1.2 {@r2t935 81/16/84 PAGE 2 


LOC OBJ LINE SOURCE 


LEREELEE REESE EEE 


# Revision History # 
pertttiittritttirtic oi g 


Por 
oo 
nde cet oe 


37 $E ject 


8086/8007/8088 MACRO ASSEMBLER  DTC/PC BIOS Keyboard Interface V1.2 . 10:21:35 81/16/84 PAGE 3 
LOC OBJ LINE SOURCE 


SHES 
# Public Symbois # 
FEREEAEEEREEEE TESTES 


> 
aS 
we ne nee 


43 Public KeyboardDriver 


47 $Eject 


BQ86/8087/8088 MACRO ASSEMBLER 


LOC OBJ LINE 


---- 53 


DIC/PC BIOS Keyboard Interface V1.8 


SOURCE 


BiosDataftrea 


BicsDatafirea 
$E ject 


SHEEEELE RESET 


# Data Segments # 
Peertettt tit et tots 


Segment Public 

Extrn KeyboardFlagi:Byte 

Extrn KeyBufHead:Word, KeyBufTail:Word 

eee BufferStart:Word, BufferEnd:Word 
Ss 


10:21:35 81/16/84 PAGE 
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8866/8087/8@88 MACRO ASSEMBLER  DTC/PC BINS Keyboard Interface V1.8 10:21:35 01/16/84 PAGE 
LOC OBJ LINE SOUR! 
39 
a] : UHHH 
bi : # Code Segment # 
be : SHEE 
623 
s=== fe Bios Segment Common 
fe Assume Cs:Bios, Ds:BiosDatafrea 
EBCE a Org GE82EH sAlign with PC and XT 
EB2E 70 KeyboardDriver Proc Far 
EBCE FB 71 Sti sRestore interrupts 
EG2F 1E Te Push = Ds ySave Registers 
E838 53 73 Push = Bx 
E831 BE---- R T4 Mov Bx, BiosDatafrea yOur data segment 
£834 SEDB = Mov Ds, Bx yeeepoint to it 
Li j Do Case Ah; 
E836 @AE4 79 Or Ah, Ah Case = 8 
E838 74@B a8 Jz KeyRead s...Pead ascii translation 
E83R FECC Bi Dec Ah jCase = 1 
E83C 7420 82 Jz KeyStatus jeeeread key status 
Ease FECC 83 Dec yCase = 
E849 743A B4 Jz KeyShift y..eread shift status 
E842 85 KeyDrvRet urn: 
E842 SB 86 Pop Bx ;Case = ??? and general return 
£843 1F 87 Pop Ds sRestore registers 
£844 CF * Iret jea.and return 
90 ; JEBHEHHEHEEH HEE 
91 ; * Read the character # 
92 : Perttttitiit titi ts te ta 
93 
E845 94 KeyRead: 
E845 FA 95 Cli yNo ints while Haag pointer 
E846 BBIEesee 3 96 Hov Bx,KeyBufHead jI1f heads = tails, buffer 
EB4A 3BiE@Re E 97 Cap Bx,KeyBufTail 3...is empty 
EB4E 7503 98 Jne KeyBufRdy sJump if buffer has data 
E858 FB 99 Sti jee .@lse, restore ints and loop 
E85: EBFe 122 Jmp Keyread teestill something coses in 
E853 101 KeyBufRdy: 
E853 8887 182 Mov Ax, [Bx] yGet Ah=scan code Al=ascii 
E855 43 183 Tnc Bx ;Remove char fros buffer 
£856 43 104 Inc Bx tieeby adjusting pointers 
E857 B91ERROR E 105 Kov KeyBufHead,Bx §...and 
EB5B SBiEeaRe E 186 Cap Bx, Buf ferEnd je. Circling 
EQSF 7561 107 Jne KeyDrvReturn sJump and return if not at end 
E861 BB1iE@ee E 188 lov Bx, BufferStart ;...else, sove the pointer 
EBS B91E@2R2 E 189 Mov  KeyBufHead,Bx j...to the start 
E869 EBD? us Jup KeyDrvReturn  j...and return 
112 ; eH 
113 ; # Return the Status # 
114 : pettrrttiiittirr terete 
415 
E868 116 KeyStatus: 
EB6B FA 117 Cli yNo ints while ome | pointer 
EB6C BBIECORO E 118 Hov Bx,KeyBufHead If heads = tails, buffer 
E878 SBiEQee E 119 Cup Bx,KeyBufTail  3...is pit 
E874 &B97 128 Mov Pix, [Bx] sGet the data (if a 
E876 FB 1e1 Sti 3.. restore interrupts 
E877 SB 122 Pop Bx tRestore registers, but 
E878 iF 123 Po Ds yes. keep the flags intact 
E879 CAg2a0 124 Re 2 v(Like Iret, but flags not affected) 
nd j.eNote: Interrupts tine enabled!! 
126 
127 ; JABBER 
128 : # Return the Shift # 
129 ‘ EUG HEHEHE 
138 
E870 131 KeyShift: ; 
EB7C ABBORe E 132 Hov Al, KeyboardF lagi yGet shift state flag 
E7F EBCi 133 Jap KeyDrvReturn t..eand return with it 


BQ86/8087/8088 MACRO ASSEMBLER DTC/PC BIOS Keyboard Interface 


LOC Obs LINE SOURCE 
134 
i? KeyboardDriver Endp 
1 

-—-- 137 Bios Ends 
138 
135 End 


ASSEMBLY COMPLETE, NO ERRORS FOUND 


V1.6 


1@:21:35 81/16/84 PAGE 
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8086/8087/8088 HACRO ASSEMBLER DTC/PC BIOS Keyboard Interrupt Service Routine V1.8 1@:22:83 01/16/84 PAE 


IBM PC/XT 6086/8087/8088 MACRO ASSEMBLER Vi.1 ASSEMBLY OF MODULE KEYINT 
OBJECT MODULE PLACED IN KEYINT. OBJ 
ASSEMBLER INVOKED BY: ASMBG KEYINT. SRC 


LOC OBJ LINE SOURCE 
1 +1 $Title ('DIC/PC BIOS Keyboard Interrupt Service Routine V1.8") 
2 +1 pega (89) Pagewidth (132) Debug Nogen 
3 Nawe Keyint 
4 
5 
: ; Authors Don K. Harrison 
: ; Start date: November 3, 1983 Last edit: December 28, 1983 
12 
11 ; JHAHHHHEEE SE HEE 
12 : * Module Description +# 
13 ; pirsttttttteteticertrest] 
14 
: ; This module processes the keyboard interrupt, interrupt 9 
{7 
18 
19 
as 
c 
2e H {c) miapiay Telecommunications Corporation, 1983 
x A 1] Rights Reserved 
25 $E ject 


BG86/8087/8866 MACRO ASSEMBLER  DIC/PC BIOS Keyboard Interrupt Service Routine V1.@ 40:22:83 01/16/84 PAGE 2 


Loc OBJ LINE SOURCE 


AHHH HE 


# Revision History +# 
HARE HEHE 


gtd 
wo 
es ee we 


38 $Eject 
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LOC OBJ LINE SOURCE 
39 
40 } JEEHEHHEHE HEHE 
4} H # Public Symbols +# 
42 H AEH 
43 
Pe Public KeyboardHderInt 
46 
47 H HHH 
48 . * Equates # 
49 : JHE 
38 
ge j Equates in include file: Ibalnc 
33 $Include (IbaInc) 
1 54 4 JERE HEHEHE 
= a9 ; # Global Include File + 
= 56 ‘ JAH HHH HEHEHE 
=! 57  $Nolist 
0088 577 InsBit Equ 180000008 iFlag bits 
9248 o78 CapsBit Equ O18B0800B feos 1ndicating 
2028 579 NumBit Equ 001000008 y..e5hift 
00128 588 ScrollBit Equ 020100088 fee 
9208 Sai ALtBit Egu 820012008 Seat 
8084 582 ControlBit Equ 802601808 qaaed 
2002 583 LeftShiftBit  Equ 900000108 Suet 
0801 384 sa wee Equ 680800018 force 
8208 585 HoldBit Equ 020010008 yHold state 
8282 586 BreakBit Equ 120RR2GOB sUpper bit of scan 
e280 =i BiosBit Equ 108000008 yBreak Key Flag 
cee H Scan Code Definitions Used By Routine 
8083 591 TwoKey Equ Q3H sScan code for 2 ke 
0037 a92 PrtScnkey Equ 37H jScan code for aint screen key 
0845 593 pee Equ 45H yScan code for num lock key 
O46 094 Scrol lKey Equ 46H sScan code for scroll lock key 
0047 95 Howekey Equ 47H sSean code for hose te 
ee5e 596 InsKey Equ ocH sScan code for insert key 
0053 097 DelKey Equ 53H yScan code for delete key 
OB1A oa Controiz Equ AH ;Ascii code for control 2 
699 
601 
602 $Eject 


6986/8087/8088 MACRO ASSEMBLER  DTC/PC BIOS Keyboard Interrupt Service Routine V1.2 10:22:03 01/16/84 PAGE 4 


Loc OBs LINE SOURCE 
693 ' HEEESEEESEEEE49044 
604 F # Keyboard Map # 
605 ; FREESE 
696 
607 3Scan Lower Upper Control Alt Table 
oe yCode Case se Case Case Entry 

1 

619 321 1BXX ESC = 1BXX 1B 1Bxx ESC NO VALUE 37 
611 3@2 31XX 1 e1xX ! NO VALUE Q278 ALT 1 2E 
6le 383 22xX 2 4OXX @ 0883 NUL @279 ALT 2 28 
613 384 33XX 3 23XX # NO VALUE @87A ALT 3 2F 
614 305 SAXX 4 24XX $ NO VALUE @27B ALT 4 x: 
615 906 35XX 5 25XX Percent NO VALUE @O70 ALT 5 31 
616 387 SHXX 6 SEXX * 1EXX RS @87D ALT 6 21 
617 308 37XX 7 PBXX & NO VALUE @B7E ALT 7 Kia 
618 309 38XX 6 PAX # NO VALUE QQ7F ALT 8 33 
619 7@A 39XX 9 CBXX ( NO VALUE 9289 ALT 9 
628 3OB 38xX 2 29XX ) NO @281 ALT @ 3 
621 380 2DXX - OFXX _ 1FXX US @8G2 ALT - 22 
622 “OD 3DXX = eBXX + NO VALUE @283 ALT = 3% 
623 3@E @BXX BS @8XX BS TFXX DEL NO VALUE 38 
624 7OF @OXX TAB  @@@F BK TB NO VALUE NO VALUE 3E 
625 41@ 71XX gq 1XX 8 11XX DCi @218 ALT g il 
626 ll 77XX w S7XX W 17XX ETB @811 ALT w 17 
627 312 75XX e@ SSxX E @5xXX ENC @i2 ALT e Q5 
626 ld 7exX r SexX R 12XX DC2 Biz AT r 12 
629 g14 74XX ¢ S4XX T 14XX 0C4 @@14 ALT ¢ 14 
638 715 79XX y S9XX ¥ 19XX EM @815 ALT y 19 
631 316 75XX u SoxX U 15XX NAK @@16 ALT u 15 
63e 317 BAXX i 4AXX I @9XX HT @217 ALT i 
633 318 GFXX o 4FXX 0 @FXX SI 9018 ALT o QF 
634 319 7OXX p SOXX P 1@XX DLE @219 ALT p 18 
635 31A SBXX [ TBXX { 1BxXX ESC NO VALUE 39 
636 31B SDXX J TDXX } 1DXX 6S NO VALUE 3A 
637 1C @DXX CR QDXX CR GAXX LF NO VALUE 3B 
638 31D —- CTRL -- CTRL a—~ CTRL -- CTRL 84 10800108 
639 y1E G1XX a 41XX A @LXX SOH Q@BIE ALT a a1 
648 31F 73XX 5 xx § 13XX B23 @VIF ALT 5 13 
641 328 B4XX d 44XX D @4XX EQT 0828 ALT d 04 
642 sel GOXX f 46XX F @6XX ACK @821 ALT f 06 
643 322 G7XX ATXX & O7XX BEL e822 ALT 87 
644 $23 BAXX 48XX H @BxXxX BS @@23 ALT 
645 324 GAXX } 4AXX J @AXX LF @024 ALT aA 
646 rea GBXX 4BXX K QBXX VT Q22e ALT QB 
647 726 GCXX | 4CXX L @CXX FF @826 ALT 1 aC 
648 327 SBXX j SAXX : NO VALUE NO VALUE 
649 328 C7 XX 22XX * NO VALUE NO VALUE 42 
698 329 BOXX * TEXX * NO VALUE NO VALUE 41 
651 y2R -- SHIFT -- SHIFT -- SHIFT -- SHIFT 82 12880210 
632 g@B SCXX \ CXX | 1CXX FS NO VALUE 3c 
653 soL 7AXX z SOXX Z 1AXX SUB @8eC ALT z 1A 
654 seD 7OXX x SBXX X 18XX CAN G@2D ALT x 18 
6 sek G3XX c 43xx C @3XX ETX QB2E ALT c a3 
656 3OF 76XX v SEXX V 16XX SYN QF ALT v 16 
657 730 GeXX b 42xX B B2xxX STX @839 ALT b ge 
658 gal BEXX n SEXY N @EXX SO @831 ALT n ss 
659 332 GDXX ADXY # @DXX CR 022 ALT « aD 
668 333 OCXX , SCXX { NO VALUE NO VALUE 4e 
661 934 2EXX. SEXX } NO VALUE NO VALUE 43 
662 330 OFXX / XX ? NO VALUE NO VALUE 4h 
663 336 -- SHIFT -- SHIFT ~~ SHIFT -- SHIFT 81 10000801 
664 337 CAXK # SPCL PRT SC @72 PR ECH NO VALUE 3D 
665 348 -- ALT - ALT -- ALT -- ALT 88 18801802 
666 339 2@XX SPACE 2@XX SPACE e@XX SPACE 20Xx SPACE 2D 
667 73h -- CAP LK -- CAP LK -- CAP LK -- TAP LK CO 118@0a2 
668 34B @O35 Fi @@54 SHF Fi @Q5E CTL Fi @866 ALT Fl 23 


669 ya 8820 Fe B85 SHF F2 O@5F CTL F2 8869 ALT Fe 24 


675 p42 8042 FS @@5B SHF FB 6@65 CTL F& @O6F ALT F& 
676 743 @O42 FO @@SC SHF F9 @@66 CTL F9 @07@ ALT FO 


25 
26 
27 
28 
674 j41 OBAL £7 ORGA SHF F7 EA CTL F7 UGE ALT F729 
2B 
677 44 0044 F1@ «BOSD SHF Fi@ = BET CTL Fi@ = OTL ALT Fl@ =a 


8086/6087/8088 MACRO ASSEMBLER 


LOC OBJ LINE 


DIC/PC BIOS Keyboard Interrupt Service Routine V1.8 


SOURCE 


745 -- 
"46 —— 
$E ject 


NUM LK =~ 
SCL LK =~ 


NUB LK 
SCL LK 


NUM 
SCL 


LK 
LK 


10:22:83 01/16/84 PAGE 


~~ NUM LK AG {e1eReRe 
-- SCL LK 90 18010800 
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8066/6087/6088 MACRO ASSEMBLER 


LOC OB LINE 
B81 


DTC/PC BIOS Keyboard Interrupt Service Routine V1.8 


SOURCE 


20 TAXX z 
SE ject 


JAH EE 


# Keyboard Map By Value # 
prrseititiitiitiitiscts cosy 


Directly Encodable Values 


Control 
Case 
@1XX SOH 
@2XX STX 
@3XX ETX 
@4XX EOT 


LAXX SUB 


Pep 
ed dd ed dd 


Nex EBEcecrw SoD SS Be ee Se ow AT on oP 


RRR SSORes 


g 
Flatatatatetatatatate 


— Po 
an _ 
zm 
tw rt 9 a a kok a a 


: 
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8056/8087/8088 MACRO ASSEMBLER 


LOC OBJ LINE 


SOURCE 
; Level Two Values 
yScan Lower Upper Control 
‘a Case Case Case 
103 S2XX 2 4OXX @ 0003 
07 36XX 6 SEXX “* 1EXX RS 
2@C EDAX - SFXX 1FXX US 
3B @Q38 Fi e054 SHF F1 @@5e CTL Fi 
330 @B3C Fe @@55 SHF Fe Q@5F CTL Fe 
3D 8030 F3 @@56 SHF F3 @@68 CTL F3 
+3E Q@3E F4 @857 SHF F4 @@61 CTL F4 
13F OO3F FO @@58 SHF FS @862 CTL FS 
+40 0040 FE @@59 SHF F6 @@63 CTL Fé 
341 0041 F7 @@5A SHF F7 0064 CTL F7 
42 @042 FA @@5B SHF FB @@65 CTL FS 
343 QB42 FY @@SC SHF FO @@65 CTL FY 
744 0044 Fl@ = @BSD SHF F1@ = @BG7 CTL Fie 
339 2OXX SPACE 2@XX SPACE 2OXX SPACE 
182 S1UXX 1 21XX ! NO VALUE 
+4 33XX 3 C3XX # NO VALUE 
25 S4XX 4 2AXX $ NO VALUE 
06 SOXX 5 25XX Percent NO VALUE 
+08 3TXX 7 PGXX & NO VALUE 
329 38XX 6 2AXX * NO VALUE 
0A 39XX 9 2BXX ( NO VALUE 
0B SOXX @ 2OXX ) NO VALUE 
3@D SDXX = PBXX + VALUE 
11 1BXX ESC = 1BXX 1B iBXX ESC 
198 @AXX BS QBXX BS TFXX DEL 
1A SBXX [ TBXX { 1BXX ESC 
1B SDXX J TDXX } 1DXX 6S 
siC @DXX CR ODXX CR OAXX LF 
t2B SCXX \ TCXX | iCXX FS 
137 2AXX # SPCL PRT SC @072 PR ECH 
10F @9XX TAB @@8F BK TB NO VALUE 
327 3BXX j SAXX : NO VALLE 
328 O7XX 22xx * NO VALUE 
329 GOXX TEXX * NO VALUE 
$33 OCKX , SCXX { VALUE 
34 CEXX SEXX } NO VALUE 
135 PFYX / SFXX ? NO VALUE 
H Shift Keys 
Scan Lower Upper Control 
jCode Case Case Se 
136 -- SHIFT -- SHIFT © —- SHIFT 
so -- SHIFT -—- SHIFT -- SHIFT 
31D -- CTRL -— CTRL CTRL 
338 -- ALT —- AT ALT 
346 -- SCLLK -- SCL LK SCL LK 
545 -- NUM LK -- NUM LK — MA LK 
33A -- CAP LK -—- CAP LK -- CAP LK 
$Eject 


DTC/PC BIOS Keyboard Interrupt Service Routine Vi.Q 


10:22:03 81/16/84 PABE 7 


Alt Table 
Case Entry 
0879 ALT 2 28 
Q27D ALT 6 21 
@@82 ALT - 22 
OG68 ALT Fi 23 
@@69 ALT Fe 24 
@BEA ALT F3 2a 
@26B ALT F4 26 
@@6C ALT FS 27 
@@6D ALT F6 28 
BOGE ALT F7 29 
ALT FB 2A 
78 ALT F9 2B 
Q@71 ALT F1@ =e 
XX SPACE 2D 
0878 ALT 1 2E 
@87A ALT 3 2F 
Q27B ALT 4 38 
@87C ALT 5 31 
@Q7E ALT 7 2 
@Q7F ALT 8 33 
@882 ALT 9 4 
O51 ALT @ 35 
Q283 ALT = 6 
NO VALUE 37 
NO VALUE xi 
NO VALUE 39 
NO VALUE 3A 
NO VALUE 3B 
NO VALUE x 
NO VALUE 3D 
VALUE 3 
NO VALUE oF 
NO VALUE 49 
NO VALUE 4t 
NO VALUE 42 
NO VALUE 43 
NO VALUE 44 
Alt Table 
Case Entry 
-- SHIFT 81 10000001 
-- SHIFT 82 18800210 
—- CTRL 84 18880180 
-- ALT Ba 10081900 
-~ SCL LK 9@ 10818808 
— NUN LK AQ 10188828 
-- CAP LK CO 110@8000 
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fTail:Word 


SOURCE 

H SERERELELLSELEEEELE 

i # Data Seqments + 

; SEHBHMMEHH eI See 

BiosDatahrea Segment Public 
Extrn pepo ts og KeyboardF Lag?: 
Extrn AltInput:Byte, KeyBufhead:Word, Ke 
Extrn KeyBuffersByte, ResetFlag:Word, BufferStart :Word 
Extrn BufferEnd:Word, BiosBreak:Byte 

Extrn CrtHode:Byte, GrtModeSet sByte 

BiosDatafrea Ends 

$E ject 
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LOC OBJ LINE 


9288 792 


---- Bai 


DTC/PC BIOS Keyboard Interrupt Service Rout ine V1.8 


SOURCE 


Bios 
Bytelype 


LevelOneStruc 


LevelOneStruc 


oe ee 


Level TwoStruc 


LowerCase 


UpperCase 


ControlCase 


JAH 
# Code Seqeent +# 
AHHH E 


Segaent Cosson 
Label Byte jUsed for xlat instruction typing 


Extrn ResetEntry:Far 


HEHEHE eH 


+ Level One Table +# 
HEHE EEE 


This table is pointed to by scan codes 1 - 7@ 
It?s value {¥) is encoded as follows: 


1(=V(=1FH Vv = Control code for key. 
V+4@H = Upper case code for key. 
V+60H = Lower case code for key. 
Scan = Alt case code for key. 


encoding. 
BiH(=V(=BC4H Y-A@H = Shift te aridity for 
KeyboardF 1 


A he ee OO OR Oe AO Oe mE ee ee 


and is not encoded) 


Struc ;-Scan- 
Db QOGH, 837H, @CEH, @CBH, B2FH, O38H, @31H, @21H ; 8-7 
Db O32H, O33H, @34H, Q35H, @22H, Q36H, @3QH, @3EH ; B - 15 
Db @1 1H, @17H, O85H, @i2H, B14H, B19H, @1SH, @BSH 516 - 23 
Db Q@FH, 01H, 839H, @3AH, @3BH, 84H, O1H, 0134 324 - 3h 
Db QQ4H, OBEH, 87H, GOGH, GBAH, OBBH, BUCH, @ZFH ;32 - 39 
Db @40H, 41H, Q87H, @3CH, @10H, O18H, @O3H,O16H 348 - 47 
Db Q02H, @BEH, @ODH, a42H, *043H, @44H, OB1H, @3DH 348 - 3 
Db @B8H, 820K, @ceH, @23H, , 824H, BOSH, B26H, 27H 356 - 63 
a @28H, @25H, @2AH, @2BH, B2CH, BAGH, G98H 364 - 78 
nds 


ERSEHEEEES EEE 
+ Level Two Tables +# 
HOES 


These tables are pointed to by the level 

one table. Each section of the table is 

37 bytes long. The values (V) are encoded as 
follows: 


6(=V{=7FH = Return Ah=Scan, Al=V (Norgal) 
OGH(=V(=FFH Return Ah=Scan, Al=0 (Extended) 


A AO ee Oe ee We ee 


Struc yDefine structure 
; Lower Case Tables 


Db 32H, @36H, @2DH, @BBH, @BCH, @BDH, @BEH, @BFH 
Db «TBH, @CIH, @CZH, @C3H, @C4H, BPGH, @31H, B33 
Dh @34H, @35H) @37H, @3BH, @39H, O3@H, O3DH, O1BH 
Db  —-@@BH sB5BH, OSDH, BODH, @5CH, @20H, 089H, @3BH 
Db —«@27H, OB0H, @2CH, @2EH, B2FH 


; Upper Case Tables 


Db 04H, @5EH, @SFH, @D4H, BDSH, @DGH, @D7H, @DBH 
Db @D9H, @DAH, @DBH, @ncH, @DDH, a2aH, 821K, @23H 
Db @24H, @25H, @26H, @enH, @26H, Hi 029H, @2BH, O1BH 
Db QOBH, O7BH 1 @7DH, GDH, arch, @e5H, Q8FH, O38H 
Db @22H, Q7EH, @3Ck, Q3EH, 63FH 


j Control Case Tables 
Db @Q3H, Q1EH, G1FH, @DEH, @DFH, @EGH, BE1H, BEZH 


10:22:83 01/16/84 PAGE 


20H (=V (=44H V-20H = Offset into level two table. 
{Key colviees two levels of 


agi and *keyboardF lag? 
(INS key handled as special 


O(=V (=4 Return Ah=V+86H, Al=@ (Special extended) 
V=5 Return Nothing (No value for key comb.) 
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€066/8887/8888 MACRO ASSEMBLER 


LOC OR LINE 
a852 ae 
@85A 862 
O8E2 64 
886A 865 
BEG 
857 
868 
@O6F 869 
@a77 a7 
Q07F 871 
0087 872 
QOBF 873 
874 
See 875 
876 
877 


DTC/PC BIOS Keyboard Interrupt Service Routine V1.9 


SDURCE 


ALTCase 


Level TwoStruc 
$Eject 


Ends 


GE3H, 94H, GESH, GEGH, @E7H, @20H, @25H, BSH 

@85H, 05H, B25H, 81BH 

a @1BH, 010h, QOAH, @1CH, OF 2H, BOSH, GOSH 
Q€5H, 5H, OOH, GOH, @25H 


ALT Case Tables 


@FSH, @FDH, BCH, GEBH, @E9H, @EAH, GEBH, @ECH 
@EDH, | OF 1H, @20H, @FBH, @FAH 
OFBH, OFCH, OFEH, OFF @aeH, Ot Q03H, 25H 
GOSH, @G5H, BUSH, GOSH, 95H, B25H, GSH, BSH 
@O5H, @5H, ABH, oesH @05H 


i@:22:83 01/16/84 PAGE 
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LOC OBJ LINE 


E9GE 982 


DIC/PC BIOS Keyboard Interrupt Service Routine Vi.8 10:22:83 01/16/84 PAGE 


SOURCE 

; peererrtivettrretrtsrertrrtesy 

‘. * Keypad Translation Table + 

} pert te iectirerertertrtirsrered 

PadStruc Struc 

Shift Db 1789-456+1238,! 

Control Db OF 7H, @@5H, 84H, O@5H, GF 2H, OBSH, OF 4H, BBSH 
Db QFSH, @@5H, BF GH, 85H, G25H 

Base Db OC7H, @CBH, OCSH, S2DH, @CBH, BB5H, CDH, BCBH 
Db OCFH, @D@H, @DiH, @D2H, @D3H 

PadStruc Ends 


HHH HEHE HSE SE 


# Structure Mesory Allocation # 
JURE HHEHHEHUH 


Align next to Keyboard Driver 

tr GE9S7H - (Size(LevelOmeStruc) + Size(LevelTwoStruc) + Size (PadStruc)) 
$Nolist 

LastTableByte Equ $-i sThis byte should be @E985H 


$Eject 


il 
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LOC OBS LINE SOURCE 
985 ; JAA 
906 : * Keyboard Driver Code # 
907 F JHBHHHEHEHHEEE EEE 
908 
ra? Assume Cs:Bios, Ds:BiosDatafrea 
E987 ae Org @E987H Align with Pc and Xt 
E987 913 KeyboardHdwrInt Proc = Far 
E987 FB 914 Sti yRestore interrupts 
£988 50 915 Push = Ax ySave all registers 
£989 52 916 Push = Bx feoeR 
ESSA Si 917 Push = Cx Feael 
ESQB 32 918 Push = Dx | 
ESC 56 919 Push = 1 Jeool 
E98D 57 928 Push = Di JeoeS 
EQBE 1€ 921 Push = Ds Wasik 
ESEF 86 922 Push Es gene® 
923 Somat 
924 Jeon 
E998 FC 925 Cld y5et string direction forward 
E991 Ba---- R 526 Mov Ax, BiosDatafrea sLoad data segment 
£994 BEDS 9e7 Mov Ds, Ax s...fegister with bios data 
E996 E468 928 In Al, PortPPIPortA jGet keyboard scan code 
£998 59 929 Push = Ax j.eeand save it for later 
£999 £461 938 In Al, PortPPIPortB 3Get B port data 
ESB 5@ 931 Push Ax j.eeand save it 
ESC @Cae 932 Or Al, 120888008 ySet reset bit 
ES9E E661 933 Out PortPP1PortB, Al j...clearing int rq f/f 
ESA 58 934 Po Ax sRestore B port value 
E9A1 E661 935 Ou PortPPIPortB, Al je.eand reset keyboard i/f 
E9A3 38 936 Pop Ax yRestore scan code 
ESA4 BARES a ov Ah, Al g.e.and sake a copy in AH 
as i FF in scan code indicates an overrun 
E9A6 3CFF 941 Cup Al, @FFH sis it overrun? 
EAB 7518 942 Jne KeyNot Overrun jee. jumap if not 
ESAA £9418 943 Jap KeyBeepReturn j...@lse beep and return 
ESAD 944 KeyIntReturn: 
EAD BeCO 945 Mov Al, PICEO! sRestore interrupts 
ESAF E6c@ 946 Dut PortPICOCH2, Al ye.efor futher keyboard entry 
E9B1 947 KeyReturnNoE0I: 
E9B1 @7 948 Pop Es yRestore the 
E9B2 1F 949 Pop Ds geeek 
E9B3 SF 958 Pop Di fear 
E9B4 SE 951 Pop $i foaed 
E9B5 SA 952 Pop Dx tie wd 
E9B6 59 953 Pop Cx feeed 
E987 3B 954 Pop Bx jecet 
E9B8 58 955 Pop Ax Jeoek 
957 geod 
958 jeeeand return 
ESBA 959 KeyNot Overrun: 
EBA 247F 968 find Al, @7FH sRemove shift bit 
ESBC 3046 961 Cap Al, Scrol lKey sHeypad, or regular key? 
EQRE 7603 962 jJbe —Infable teas Jump if regular 
ESC@ E9201 %3 Jup KeyPadState y.2eelse process keypad 
EQC3 964 InTable: 
E9C3 BBASES 965 Hoy Bx, Offset LevelOmeTable ;Point [Bx] to table 
E9C6 2&D7 966 Xlat Er ppeiyre ss..and convert scan from table 
E9Ca BALE 967 Or Al,A is value shift code? 
ESCA 7887 968 Js ModifierTest ir ool if it is 
E9CC @Ac4 969 Or Rh, Ah Is break bit on? (key release) 
ESCE 78DD 978 ‘Js KeyIntReturn yeseif if is, ignore and return 
E9D@ EB4E98 971 Jup KeyContinuet 3...@lse, process non-modifier 
972 
973 ; JAH HEHEHE EEE 
974 ; * Process Modifier Keys # 
975 ; JAHEE HEHEHE 
976 
977 5 Note: The insert key is both a sodifier and a data key. 
978 ; It is processed in the data key section as a special case. 
979 


8086/8087/8088 MACRO ASSEMBLER 


LOC OBJ LINE 
EID3 988 
EQD3 247F 981 
EDS @AE4 982 
E9D7 78el 983 
984 
985 
986 
E9D9 3Ci@ 987 
ESDB 7386 988 
989 
998 
791 
ESDD @8e68000 E 992 
E9E1 EBCA 993 
994 
995 
996 
E9E3 997 
ESE3 F6Q6080004 E 998 
E9E8 7336 999 
EQER s4bo008 E 1080 
ESEE 7OBD 1981 
EM@ G6869208 E 1882 
ESF4 s0a6a8e2 E 1883 
ESF EBBS 1084 
1905 
1806 
1007 
ESFA 1888 
ESFA 3tia 1809 
ESFC 7318 1918 
1811 
1812 
1813 
EGFE FéDO 1814 
EAB 20R5RV00 E 1815 
EAQ4 3CF7 1816 
ERAGE TSR 1617 
1018 
1619 
1820 
EROS ARBORE E 1821 
B 3eE4 1 
EAD BachBRe8 E 1823 
EALL 3AC4 1024 
EAI3 7498 1825 
EAS E97701 1826 
1027 
1828 
1029 
EAS 1838 
EAI8 FDe 1831 
EAIA 28060800 E 1032 
EAE EBBD 1833 
1834 
1835 
136 
1837 
1838 
ERZB 1039 
1048 
1841 
ERO F6R6988808 E 1042 
EAS 748) 1843 
1844 
1245 
1946 
ER27 B@FC45 147 
EACR 7485 1848 
ERC BOPb8R00F7 E 1849 
EA31 1@58 
EA31 E979FF 1851 
152 
1833 
1854 


DIC/PC BIOS Keyboard Interrupt Service Routine V1.8 
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y release 


£ P 4 


SOURCE 

ModifierTest: 
And fl, 7FH gRemove Modifier flag bit 
Or Ah, Ah sTest scan code if make/break 
Js BreakingModifier jzseand jump if key released 
j Modifier Key Being Pressed 
Cup Al, Scrol1Bit ylest if toggle type or normal 
Jae ToggleMake jaseand jump if toggle 
: Normal (not a toggle) Modifier 
Or KeyboardFlag!, Al y...else set bit indicating 
Jap KeyIntReturn jeoea modifier is pressed 
H Toggle Modifier 

ToggleMake: 
Test LE edict i aia yDo not toggle if control 
Jnz KeyCont inue zae2key (ctl num lock, etc...) 
Test Al,KeyboardFlag2 Is the key depressed now? 
Jnz KeyIntReturn s..e Jump if it is and ignore 
Or KeyboardF lage, Al ...el5e@ show dep. in flag 2 
Xor KeyboardF lagi, Al yToggle state bit if flag 1 
Jap KeyIntRet urn yereand return 
: Modifier Key Being Released 

BreakingModi fier: 
Cup Al, ScrollBit lest if toggle type or normal 
Jae TogqleBreak y..eand jump if toggle 
: Normal (not a toggle) Modifier - Breaking 
Not Al slurn off key depressed 
And KeyboardF lagi, Al gao.bit 
Cap Al, Not AltBit 7 (Value of alt “8 mask here) 
Jne Key IntReturn jJump if not alt ke 
H Return collected data on release of ALT key 
Hov Al, Alt Input sGet the data 
Xor Bh, Ah ;Get a zero 
Mov Alt Input, Ah jxs.and zero data for next try 
Cup ’ s1f input = @, don’t 
Je KeyIntRet urn joa. return any data 
Jup KeyBufLoad ;..,else return data w/scan=0 
H Toggle Modifier - Breaking 

ToggleBreak: 
Not Al slurn off ue key 
And KeyboardF lage, Al j-.- depressed bit 
Jup KeyInt Return jee.and return 

; JERE HEBER 

F # Test Special Conditions # 

' JAH 

KeyContinuel: 


; Control Num Lock Hold State Test 


3Is hold state bit set? 
geo. jump if not 


Test KeyboardFlage, HoldBit 
Jz KeyCont inue4 


7 Restore from hold state 


Cup Ah, Nuakey 
HoldIntReturn 
And KeyboardF lage, Not HoldBit 
HoldIntRet urn: 
Jup KeyIntReturn 


; JABBER 
i # What Shift State are We In? +# 


j..,and return 


Is this contro] num? 
jexelf So, don’t restore 
;..@lse clear hold state 
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8G86/8287/8088 KACRO ASSEMBLER 


LOC OBJ 


EA34 

EA34 FEQ6OBR208 
EA39 7914 

EA3B Foeseanee4 


ER4F 

ER4F 3C1A 
EAS! 77@5 
EAS3 Bees 
EASS £97201 
EADS 

EAS8 BE3BE9 


EASB ected 
EASD 2ED7 
EASF E92D@1 


EAG2 

EAG2 BOFC46 
EAGS 7o15 

EAG7 CeB6oseese 
ERGC A1G208 
EAGF AZe008 
EA72 A38B08 
EATS CDIB 

EA77 2BC@ 

EA79 E91301 


EATC 

EATC BOFC45 
EA7F 73521 

EAR B@BERoOG8 
EAG6 Beee 


EAA 
EARS ESIE@1 


mmimm 


LINE 


DTC/PC BIOS Keyboard Interrupt Service Routine V1.8 


SOURCE 
; HUH HEHEHE EES EEE EE 
H Ah = Scan Code, Al = Value From Level 1 Table 
KeyContinue4: 
Test 2 (ig Alt? 
Jnz AltState fave YOS, june 
Test  KeyboardFlagi,ControlBit stontrol? 
Jnz ControlState je Yes, puePe else test shift 
Test  KeyboardFlagi,LeftShiftBit Or RightShiftBit 
Jnz ShiftStateShort gees Ves, Jump 
Jup BaseCaseState jNo shift state active 
ShiftStateShort : 
Jup ShiftState sConvert to near jump 
; {HEHE HHH 
i * Alt State Processor + 
' (ABH HEHEHE 
AltState: 
p Al, ControlZ yIs Level 1 (= Control 2? 
Ja AltNotAZ fees juap if not and continue 
Mov Al,@ ye. @lse return extended 
Jap KeyBufLoade 3.oeAl = @, Ah = Scan 
AltNotAZ: 
Mov Bx, Offset LevelTwoTable.ALTCase sLoad Level Two Pointer 
Sub Al, 20H yRemove level two char offset 
Xlat Cs:ByteType sTranslate level 1 to level 2 
Jap KeyBufLoad sJump and load buffer 
; JHB HHH HEHEHE 
; # Control State Processor # 
; JHB 
: Process specials 
; Control Break? 
ControlState: 
Cap Ah, ScrollKe sAre we processing Scroll Key? 
Jnz KeyCont inue, jose Jump if not 
Mov BiosBreak, BiosBit sTurn on Bios Break Bit 
Mov Ax, Bufferstart yClear keyboard buffer 
ov KeyBufTail, Ax jes 
lov KeyBufHead, Ax fous 
Int pr aeeyneeh ls to keyboard break driver 
Sub fix, Ax 3e..incase of return 
Jup KeyBufLoad j...5end some data back 
; Set Hold State? 
KeyCont inueS: 
Cup Ah, NumKey ;Are we processing Num key? 
Jnz KeyContinueg ooo jump if not 
Or KeyboardFlage,HoldBit ;...else set hold bit 
Mov Al, PICEGI yRestore interrupts 
Dut PortPICOCHe, Al jy... for futher keyboard entry 
Cap CrtHode, 7 sTest if monochrome adapter 
Je Pees je.cand jump if it is 
Mov Dx, PortColorMode ja. -else, turn color card 
ov Al, CrtModeSet j...0n during keyboard pause 
Out Dx, Al 322.50 user Can See screen 
HoldLoop: 
Test a ie cereal sWait for recursive interrupt 
Inz HoldLoop 22.60 Clear flag 
‘Jap KeyRet urnNoEO] jeesand return 
i Null? 
KeyCont inued: 
Crp Ath, TwoKey ;Control 2? 
Jne KeyCont inue7 toee Jump if not 
Mov Al,8 3...else return a null 
Ct 1BufLoad: 


Jup KeyBufLoad2 


sJusp and load buffer 
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LOC OBJ LINE 
1138 
EAAC 113i 
EAAC 3CiA 1132 
ERAE 76F9 1133 
EAB@ BB1GE9 1134 
EAB3 2028 1135 
EABS 2ED7 1136 
EAB7 E9D588 1137 
1138 
1139 
1148 
1141 
EABA 1142 
1143 
1144 
1145 
EABA BOFC37 1146 
EABD 7209 1147 
EABF Bec? 1148 
EACi E628 1149 
EAC3 CD@5 1158 
EACS ESE9FE 1151 
Like 
EACA 1153 
EACB 3C1A 1154 
EACA 7785 1155 
EACC 0440 1156 
EACE EQBEG? 1157 
EADI 1158 
EADi BBFIE8 1159 
EAD4 eC20 1160 
EADG 2&D7 1161 
EADS E9B490 1162 
1163 
1164 
1165 
1166 
1167 
EADB 1168 
EADE 3C1A 1169 
EADD 7785 11728 
EADF 8462 1171 
EAE: ESABG2 1172 
E 1173 
EAE4 BBCCES 1174 
EAE7 2Ced 1175 
EAES 2ED7 1176 
EREB E9A180 1177 
1178 
1179 
1188 
1181 
1182 
EREE 1183 
EAEE 2C47 1184 
EAF@ aAlE@eaa E 1185 
EAF4 F6C308 1186 
ERF7 7519 1187 
EAFS F6C304 1188 
EAFC 754B 1189 
EAFE FEC320 1198 
EBQ1 7487 1191 
EBQ3 FEC303 
EBQE 754) 1193 
EBQS EB79 1194 
A 1195 
EBQA FEC383 1196 
EBQD 7574 1197 
EB@F E4490 1198 
EBi2 1199 
EBi2 BARES 1202 
EB14 7638 1201 
1202 
1283 
1204 


DTC/PC BIOS Keyboard Interrupt Service Routine V1.2 


SOURCE 


KeyCont inue7: 


Sue me 


oni ftState: 


KeyCont inueé: 


ShiftNotAZ: 


BaseCaseState: 


BaseNotAZ: 


on wee 


KeyPadState: 


KeyPadCont inue: 


PadALTState: 


Else process normal control key 


Al, ControlZ sis Level 1 (= Control 7? 

ct 1BufLoad ye. return level 1 val. if so 
Bx, Of fset Level TwoTable. ControlCase jLoad level 2 

Al, 20H yRemove level two char offset 
CssByteType *Translate level 2 data into Al 


KeyBufLoad je..and load into buffer 


HSE HSE EEE EEE EES 


* Shift State Processor # 
peeeetttetrer titi er testers 


Handle Special Cases 


Ah, PrtScnke yAre we processing print sen 
KeyCont inu bass Jum if not 

Al, PICEOI sAllow futher interrupts 
PortPICOChe, Al j.e.and keystrokes 


TrapPrintScreen 
KeyReturnNoEoi 


sPerform print screen 
jessand return 


Al, ControlZ jis Level 1 (= Control 2? 
ShiftNotAz fae jump if not and continue © 
Al, 40H 3...else return extended 
KeyBufLoad geeeAl = L1+48H Ah = Scan 


Bx, Offset Lapel lnelthte. Spats sLoad level 2 

Al, 20H yRemove level two char offset 
Cs:ByteType sTranslate level 2 data into Al 
KeyBufLoad ;Juap and load buffer 


SREEE PESEEEAEE EE 


# Base Case Processor # 
preeerttrrritttittr tt rtty 


Cup Al, ControlZ Is Level 1 (= Control 2? 

Ja BaseNotAZ 3e0e Jump if not and continue 
Add Al, 60H 3..-e)lse return extended 

Jap KeyBufLoad yeeeAl = Li+6Q9H Ah = Scan 
Mov Bx, Offset LevelTwoTable.LowerCase ;Load level 2 

Sub Al, 20H yRemove level two char offset 
Xlat  Cs:ByteType Translate level 2 data into Al 
Jump KeyBufLoad ;Juap and load buffer 

JHBBE HEHEHE EE 

* Keypad Processor # 

JAHN 

Sub Al, HomeKey yCalculate table offset 

Kov SV eral jUse Bl for faster action 
Test BI, AltBit Alt? 

Jnz PadALTState j...Y@S, JUSp process numeric 
Test B1,ControlBit Control? 

Jnz PadControlState foes YOSy usp, else test shift 
Test 8Bl,NumBit yNus Lock? 

Jz KeyPadCont inue ee if not 

Test BlyLeftShiftBit Or RightShiftBit ;Shifted? 

Jnz PadBaseState jee ohifted numloc=BaseState 
Jup Short PadShiftState y...Unshifted numloc=ShiftState 
Test Bl,LeftShiftBit Or RightShiftBit ;Shifted? 

Inz PadShiftState goeeYOS, Jump 

Jup PadBaseState 3No shift state active 

Or Ah, Ah sAffect flags 

Js PadReturn feeedgnore if breaking 


Test for Reset sequence 
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8086/B@87/8088 HACRO ASSEMBLER 


LOC OBJ LINE 
1285 

1206 

EB16 FoRERReRt4 E 1287 
EBIB 7418 1208 
EBID S@FCS3 1289 
T5QB 1218 

EBee C7O600083412 E tell 
EBea EAGQBG-———- lete 
D 1213 
EB2D BBGSE9 1214 
EB3@ 2ED7 1215 
3038 1216 

EB34 7218 1217 
EB36 2038 1216 
EB38 BAD8 1219 
EB3A AGEBee E 1228 
EB3D B4@A 1221 
EBIF FGE4 1222 
EB41 @2C3 1223 
EBA ACHOR2 E 1224 
EB46 1225 
EBAG ESE4FE 1226 
1227 

EBA 1228 
EB49 @AE4 1229 
EB4B 78F9 1232 
EB4) BBGDEY 1231 
EBS@ 2ED7 1232 
EBS2 EB3B9R 1233 
si) 1234 
EBS B@FCDe 1235 
ToeT 1236 
EBSA §82600007F E 1237 
fF EBES 1238 
EBG1 1239 
£B61 @AE4 1248 
EB63 7BE1 1241 
EB6S BOFCS2 1242 
EB68 751i 1243 
EBGA Fo@6980888 E 1244 
EBGF 75D5 1245 
EB7i AR2508880 E 1246 
EB76 BQGEseRase E 1247 
1248 

EB7B 1249 
EB7B BB7AE9 1258 
EB7E 2€D7 1251 
Esa EB@D92 1252 
1233 

EBB @AE4 1254 
EBSS 78BF 1205 
EBS7 BBEGES 1256 
EBSA 2ED7 teo7 
EBSC EBQ192 1258 
1259 


DIC/PC BIOS Keyboard Interrupt Service Rout ine V1.8 


SOURCE 


KeyPadConte: 


PadReturn: 


PadControlState: 


PadBaseState: 


NotBrkIns: 


NotInsKey: 


PadShiftState: 


$Eject 
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fre we in the control and alt shift state? 


ResetEntry 


Bx, Offset PadTable. Shift 


CssByteType 
ate 
PadReturn 
Al, '@° 


B1, Al 
Al, Alt Input 
fh, 12 
Al, Bl 

Alt Input, Al 
KeyIntReturn 


fh, Ah 
PadReturn 


yIs control pressed? 
Sesevveveses Jump if not 
fre we processing DEL? 
jee juap if not 
s,..else, set reset flag 
s..,and reset the systea 


sPoint at numeric translation 
Translate from table 
yTest if ( @ {.+-) 
s.eeand return null if it is 
3...e1se remove ascii offset 
Free up accuaulator 
sGet keypad accumulator 
s..eand shift it left 1 decimal 
s.2.then add 
soe.this number 
feoolt 


geeeand return 


sAffect flags 
feseignore if breaking 


Bx, Offset PadTable.Control ;Use control table 


Cs:Bytelype 
KeyBufLoad 


fh, InsKey Or 88H 
NotBrkIns 


KeyboardFlage, Not InsBit 


PadReturn 


Ah, Ah 

PadReturn 

th, Inskey 

Nak Inskey 

Keyboardt lag2, InsBit 
PadReturn 
KeyboardF lagi, InsBit 
KeyboardF lage, InsBit 


Bx, Offset PadTable. Base 


Cs:Bytelype 
KeyBufLoad 


PadReturn 


Translate from scan to data 


sBreaking INS key? 
fee. jump if not 

;Show INS key released 
jeeeand return 


Affect flags 

js. ignore 1f breaking 

;Special case of insert key 

joc Jump if not that key 

tIs the insert key pressed now? 
s..if it is, ignore repeat 
:,.,else toggle Ins shift bit 
;...and show key depressed 

ge. othen go ahead and send code 


3Use base table 
‘Translate from scan to data 


sAffect flags 
3... ignore 1f breaking 


Bx, Offset PadTable. Shift sUse Shift table 


Cs:Bytelype 
keyByftoce 


translate from scan to data 
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8086/8087/8088 MACRO ASSEMBLER 


LOt OBJ 


EBOF 247F 
EBA1 

EBAL BAER 
EBAZ Bae 


EBB1 74@D 


EBB3 3C41 
EBBS 7213 
EBB7 305A 
EBBS 770F 
EBBB 8420 
EBBD EB@BIG 


EBCO 

EBC@ 3061 
EBL? 7206 
EBC4 3C7A 
EBCE 7782 
EBCB 2020 


EBCA 

EBCA 

EBCA BBiE@ee? 
EBCE 8BFB 
EBD@ 43 

EBD1 43 

EBD2 SBIEQRRS 
EBDG 7504 
EBDB SB1Easee 


EBE 

EBES 8905 
EBE7 891EQea0 
EBEB 


DIC/PC BIOS Keyboard Interrupt Service Routine V1.@ 


feos JUAD 
KeyboardFlagi,LeftShiftBit Or RightShiftBit 
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nal translation 


@ in Al is between @ and 4, 8@ will be added, 


Entry two, KeyBufLoad2, will not perfors this translation. 
It is used “ the control state processor to return control 
a 


In either case, if the 


m entry, the value in Al is soved into 
and a zero is returned as the 
er is then loaded 


yNo value? 

yee return and ignore 
sIs value (= 4? 

jueo jump if not 

gTurn on upper bit 
jeeeand continue below 


jis upper bit set? 
A i if not 
glurn off upper bit 


qjeeeand move it in as scan 
yIndicate extended code 


sre we in capslock? 

ump if not 
yohift? 
jess jump if not, conv. lo to up 


pA 
fees ju if not and load buffer 


joes jump if not and load buffer 
sAdd offset to lower 
jeseand go load buffer 


=a 
+. juap if not and load buffer 
=z 


» jump if not and load buffer 


; 
g* 
if 
iAdd offset to lower 


ybet the tail (target address) 
sDi points where we'll put char 
;Bump the tail 


tAre we at the end? 
jes. jump if not 
jesee@lse, sove the pointer 


ylail = Head? 
gees ump if not 
j...2lse8 beep and return 


yStore scan and ascii in buf. 
3e5.move the pointer 


SOURCE 
; AEH HEHEHE EEE 
H # Load Keyboard Buffer +# 
' er tittit itt ttistee teres 
H Upon entry, Al = ASCII code from table, Ah = scan code 
; En one, KeyBufload, will perform a i 
; if the valu 
: 
: 
; codes which fall in this range. 
: upper bit is set nis 
F and, the upper bit rese 
‘ Character from Al. The buf 
KeyBufLoad: 
Cup Al,5 
te BufLoadReturn 
rp 
Ja _ BufNotSpel 
Or Al, 1e8008008 
Jap Short BufContinue 
BufNotSpcl: 
Test Al, 190000008 
Jz BufCont inued 
And Al, @LL1L111B 
BufCont inue: 
Mov Ah, Al 
Mov 1,8 
H Caps Lock 
BufCont inue2: 
Test ee ae ldeadial 
Jz BufLoad 
Test 
Jz BufLowerToUpper 
j Convert Upper to Lower 
Cap Al, *A’ 
Jb BufLoad 
Cap Al,'2! 
Ja ButLoad 
Add Al,*a’-'A! 
Jup ButLoad 
H Convert Lower to Upper 
BufLowerToUpper: 
Cmp Al,‘a 
ied 
p z 
Ja BufLoad 
Sub Al,*a’-"A’ 
H Finally done, load buffer 
KeyBufLoad2: 
BufLoad: 
Mov Bx, KeyBuf Tail 
Mov Di, Bx 
Inc Bx 
Inc Bx 
Cup Bx, Buf ferEnd 
‘Ine ButCont2 
Mov Bx, Buf ferStart 
BufConte: 
Cap Bx, KeyBufHead 
Jne ButCont3 
Imp KeyBeepReturn 
BufCont3: 
Moy (Dil, Ax 
Mov KeyBufTail, Bx 
BufLoadRet urn: 
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8886/8087/8088 KACRO ASSEMBLER 
LOC OBJ LINE 
EBEB ESBFFD 1335 
1336 
1337 
1338 
1339 
1348 
EBEE 1341 
EBEE Beet 1342 
EBFQ E628 1343 
B 1344 
EBFS E461 1345 
EBF7 5@ 1346 
a 1347 
EBFA @4FC 1348 
EBFA E661 1349 
C 1338 
EBFC B96488 131 
F 13e 
EBFF EoFE 1353 
EC@1 3402 1354 
EC@3 E61 1355 
Rage | 
EC@7 74F3 1357 
EC@9 4B 1358 
EC@A 75EC 1359 
38 1 
EC@D E651 1361 
ECOF B93200 1362 
EC12 1363 
ECi2 EeFE 1364 
EC14 EQSAFD 1365 
1366 
1367 
1368 
sare 1269 
1378 


ASSEMBLY COMPLETE, NO ERRORS FOUND 


DIC/PC BIOS Keyboard Interrupt Service Routine V1. 10:22:83 
SOURCE 
Jup KeyIntReturn j.eand return 
: JERE 
i * Keyboard Beep + 
: JEeHHEHHEHHEHEHE 
KeyBeepReturn: 
Rov Al, PICEOI ;Restore interrupts 
Out PortPICOCHe, Al t.2.and futher keyboard 
lov Bx, 128 Short tone, same as PC 
In Al, PortPPIPortB 3Get audio control state 
Push = Ax gea.and save it 
BeepCycle: 
And Al, @11111109B jTurn off gate 
Out PortPPIPortB, Al jo..and data 
BeepHalfCycle: 
Cx, 188 sHalf cycle time 
BeepLoop: 
Loop = BeepLoo je. loop for half a cycle 
Xor Al, 26000188 yTurn on speaker 
Out PortPPIPortB, Al 3...speaker data 
Test Al, 00280108 is this second pass? 
dz BeepHal fCycle j...loop if not 
Dec Bx Decrement cycle count 
Jnz Beeplycle y.e..and cycle till done 
Po Ax ;Restore B port value 
Ou PortPPIPortB, Al za... from stack and output it 
Mov Cx, 98 sPause at end of beep 
PauseBeep: 
Loop $ PauseBeep jee. for tonal quality 
Jmp KeyRet urnNoEO! gjeo.and return 


KeyboardHderInt Endp 


Bios 
End 


Ends 


81/16/84 PAGE 


18 


8086/8087/8088 MACRO ASSEMBLER  DIC/PC BIGS Floppy Disk Driver V1.8 10:25:54 @1/16/84 PAGE 


IBM PC/XT 6@86/8087/8088 MACRO ASSEMBLER Vi.1 ASSEMBLY OF MODULE FLOPPY 
OBJECT MODULE PLACED IN FLOPPY. OBJ 
ASSEMBLER INVOKED BY: ASMB6 FLOPPY, SRC 


LOC OBJ LINE SOURCE 
1 +1 $Title (*DTC/PC BIOS Floppy Disk Driver V1.2°) 
2 +1 $Pagelength (88) Pagewidth (132) Debug Nogen 
: Name Floppy 
3 
: : Author: Don K. Harrison 
: ; Start date: November 17, 1983 Last edit: December 22, 1983 
18 
it ' JeHH HEHE HMHHMHMEEE 
12 ; * Module Description # 
13 H EEE HEE 
14 ; 
15 H This module contains the floppy disk driver routines ard 
16 : the floppy disk interrupt service routines. The driver is 
17 + accessed via interrupt 14 (TrapFDisk). The interrupt service 
18 ; is via interrupt 19 (TrapFDDriver). 
19 
a 
ae 
ze ; (c) Dysphay Telecommunications Corporation, 1983 
; ll Rights Reserved 
25 $E ject 
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LOC OBJ LINE SOURCE 


HEE EEE EEE 


* Revision History # 
GHEE EE 


me 
wa 
nn we 


3a $Eject 


§066/8887/8088 MACRO ASSEMBLER 


LOC OBJ 


LINE 


DIC/PC BIOS Floppy Disk Driver Vi.@ 


SOURCE 


wn we oe 


PointerSeqnuent 
PointerOffset 
DTL 


GapSize 

ea 
SectorSize 
SectorNumber 
HeadNumber 
TrackNumber 
DriveNumber 
FDCCommand 
NunberOfSectors 


q 

i 

i 

Specifyl 
Specifye 
Kotorbait 
Format6a 
FormatFi ler 
HeadSett le 
MotorStart 
SoftParans 


os we oe 


OkStat 
TiseQutStat 
BadSeekStat 
BadFDCSt at 
BadCreStat 
DMAPageStat 
BadDMASt at 
SectNotFndStat 
WriteProtStat 
BadAddMarkStat 
BadCadSt at 


00 te ee 


DeAVer 1 fyMode 
DMAReadMode 
DMAWriteHode 


FDCReadCMD 
FDCWriteCMD 
FDCFormatCeD 
FDCRecal CMD 
FDCSpeci fyCMD 


JAH 


# Public Symbols # 
SEHHEEEET EEE SEE EE 


Public FloppyDriver, FloppyHdwrInt, FloppyParamsPointer 


FEEEHEEEEEEE 
# Equates # 
JUHA 


JASE 
# Stack Frame Definitions + 
JANE 


Equ (BP+12] 
Equ (BP+18) 
qu Byte Ptr (BP+9) 
Equ Byte Ptr [BP+8) 
Equ Byte Ptr [BP+7] 
Equ e Ptr (BP+6] 


Equ Byte Ptr [BP+1] 
Equ Byte Ptr [BP] 


JAH 
# Disk Parameter Definitions # 
HHH HEE 


Equ EssByte Ptr [Si] 
Equ Es:Byte Ptr [Si+1] 
Equ EssByte Ptr ([Si+2] 
Equ Es:Byte Ptr [Si+7] 
Eau Es:Byte Ptr [Si+8) 
Equ Es:Byte Ptr [9i+9] 
Equ Es:Byte Ptr [Si+1@] 
Equ Es:Byte Ptr [Sil 


JHBHHHEMHHHMHEHE 
# Status Bits +# 

JEHHHHHAHEEHEEE 

Equ B2G0808008 30k status 

Equ 100880008 Timeout 

Equ 812829008 1Seek error 

Equ 001680008 sFloppy controller bad 
Equ 00100008 3CRC error 

Equ 02010818 sDna requested to cross 64k 
Equ 808010008 ach acin bad 

Equ 098001808 tector not found 

Equ 80000118 Disk write protected 
Equ 880000108 ;Address mark not found 
Equ @VVVVOC1B sUnrecognizable command 
SHEE EE 

# Modes # 

HEHEHE 

Equ 018880105 yChannel 2 verify normal 
Equ 010281108 ;Channel 2 read normal 
Eau 010010188 ;Channel 2 write normal 
HEHEHE EE 

+ Commands # 

AHHH: 


;Read command 

sirite command 

‘Foruat command 

iRecal ibrate command 
Speci fy command (timers) 


Equ 111981185 
Equ 118801018 
Equ 010011815 
Equ Q8800111B 
Ea 89000118 
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8086/8087/8288 MACRO ASSEMBLER 


LOC OBJ LINE 


@285 114 
Q0OF 115 


DTC/PC BIOS Floppy Disk Driver V1.@ 


SOURCE 


FOCSenseIntCMD Equ 000010008 
FDCSeekCMD Equ 00001111B 


$Include (IbmInc) 


; SHB EE 
j # Global Include File # 
‘ JHBHEHE HHH HEEHEE 
§Nolist 
$E ject 
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ySense interrupt comand 
pSeek nd 


8086/8087/8088 MACRO ASSEMBLER 


LOC OBJ LINE 


— 657 


DIC/PC BIOS Floppy Disk Driver V1.0 10:25:54 @1/16/84 PAGE 
SOURCE 
; JUEHEHEE EEE HUE 
‘ # Data Seqaents + 
; JHMM HHEE HE 
IntSeguent Seqment Public 
Extrn FloppyParamsTrapAddr:Dword 
IntSequent Ends 
BiosStack gegen Public 
BiosStack Ends 
BiosDataArea Segment Public 
Extrn FDCStatus:Byte, DisketteStat:Byte, SeekStatus:Byte 
Extrn MotorStatus:Byte, MotorCount:Byte 
BiosDataRrea Ends 
$Eject 


] 


§386/8087/8888 MACRO ASSEMBLER 


LOC OBJ LINE 


DIC/PC BIOS Floppy Disk Driver V1.0 


SOURCE 


ns a ee NE a nn A a ne One 


SHEESH He ESE 


# Stack Frase After Initialization # 
prertrtietti tri rtirtiirtitcttrr ssid 


i Return Address 1 BP+22 
. “4 BP+e20 
ie a | BP+i8 
Cae 1 BP+16 
ee BP+14 


a ae ee ee re ee a ee a eee sen remem: 


| DMA Memory Pointer (Offset ) | BP+1@ 


: DL | GAP I BPS 
| EOT | Sector Size 1 BH 
| Sector # | Head # 1 BP+4 
| Track # | Drive ® 1 Bete 
| Command | # of Sectors 1(- BP 


10:25:34 81/16/84 PABE 
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8086/8087/8088 MACRD ASSEMBLER 


Loc OBJ 


ECée 33 
EC64 a&D8 
EC66 C4360088 


EC5A Ba---~ 
EC6D 8&D8 


ECOF BBRIae 
EC72 268b00 
EC7S 5@ 
EC76 4B 
EC77 4B 
EC78 268b00 
EC7B 5¢ 
EC7C 86CE 
EC7E 86Di 
ECB@ Se 
EC! Of 
ECa2 97 
EC83 8BEC 


EC85 E822ed 


ELAS c6hAb4e2 
ECSC ageEeeee 
EC9@ BAChaReE 
EC94 AQFCS1 
EC97 FO 


mm 


LINE 


DTC/PC BIOS Floppy Disk Driver Vi.@ 
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SOURCE 

; JHABHEHE HEE 

; # Code Segment # 

; HABE EE 

Bios Seguent Common 
Assume (Cs:Bios, Ds:BiosDatafrea, S5:BiosStack 
Org @ECI9H sAlign with PC / XT 
: Initialization of stack frame 

FloppyDriver broc = Far 
Sti ;Restore higher interrupts 
Push Bp Save Block pointers Bp 
Push = Si geeeSl 
Push Di jee aDi 
Push = Ds 3. ..Data sequent 
Push = Es vehi ee SEG 
Push = Bx Faeeee OFFSET 
Hov Di, Ax sSave accumulator 
: Point ES:SI at disk parameters 
Assuse Ds: IntSeqment ;DS refers to segment at zero 
Xor fx, Ax Fill Command block 
Fov Ds,A yj... from data 


Assume Ds:Bios' 
Hlov fix, BiosDat afrea 


AX 
Les Si, FloppyParassTrapAddr 
: Bitafrea 


Ba gay to by int 3 
sTell ASHBG6 to use bios data 
...58t sequent register 


Mov Ds, Ax y.2.¢0 bios data 

; Move values from disk parameters 

Mov Bx,o t... Starting at byte 5 

Mov fx, Ess (Bx] (Si] sLoad ax 

Push = Ax ;.eand push (DTL & GAP) 

Dec Bx sDecrement index 

Dec Bx geeeby @ and 

Hov Ax, Es: (Bx {$i] yLoad ax 

Push = Ax y...and push (EQT & Sec Sz) 
Xchg =s C1, Dh ;Re-arrange for 

Xch D1,C1 j-. Command block 

Pus Dx sSave Cl, Dh (Sect & HD#) 
Push = Cx sSave Ch, Dl (TK# & DV#) 
Push = Di sSave Ah, Al (Cmd & #Sectors) 
Mov Bp, Sp sPoint at base of stack frame 
; Parse and dispatch command 


Call ParsefndGo 


;Parse command and execute 


i Set the motor timer and affect carry with status 


Mov Bh, HotorWait 
Mov KotorCount, Ah 
ov Ah, DisketteStat 
Cap Ah, 1 
Cec 
F Dissolve stack frame 
Pop Bx 
Pop Cx 
Po Dx 
Xechg sO, Cl 
Xchg ss, Dh 
Pop Bx 
Pop Bx 
Pop Bx 
Pop Es 
Pop Ds 
Pop Di 
Pop Si 
Pop Bp 
loppyDriver p 
sEyect 


sPlug timer to keep 
je..0rives running 

sAffect carry a 

sif )1 cary will be clear 
tae NOt, if >i, carry set 


yPop Ah, Al (Cud & #Sectors) 
3Pop TK & DV 

7Pop SEC# & HD 

;Restore back to 

3...Calling convention 

sPop EOT & SEC SIZE 

sPop DTL & GAP 

sRestore DMA offset pointer 
‘Restore DMA sequent pointer 
sRestore data sequent pointer 
eore pointers Di 

pene 1 


gues p 
tReturn without restoring flags 


§086/8087/8088 MACRO ASSEMBLER 


Loc OBJ 


ECB3 7413 
ECBS 887E8203 
ECB9 7784 
ECBB 3C85 
ECBD 7606 


ECBF 
ECBF COBE088001 E 
ECC4 C3 


ECCS 
ECCS E9828 


LINE 


DIC/PC BIDS Floppy Disk Driver V1.8 


SOURCE 
i 
i 
4 


ParseAndGo 


BadDriveRtn: 


BiskIOShort: 
ParseAndGo 


a 
4 
. 
1 
q 


StatusCommand 
StatusCommand 


$Eject 
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ZAHA HES EEE 


+ Command Parser and Dispatcher # 
JUAHHE HEHE 


Proc = Near 

Mov Al, FDCCommand Parse the command 

Or Al, Al +..eCommand = reset? 

Jz Reset Command jeas jump if Ah=8 

Dec a omens = status? 

Jz StatusCommand gees Jump if Ah=1 

Cap DriveNusber, 3 sDrive # must be 8 1 2 or 3 
Ja BadDriveRtn js». jump if out of range 
Cup Al, DiskCadFormat jCommand ={ Format (highest) 
Jbe DiskIOShort geo. jump if 2 thru 5 

Kov DisketteStat, BadCadStat ;...else, unrecognizable 
Ret se.ereturn with bad status 
Jump DiskI0 jJump and execute r/w/v/f 
Endp 


FEHB EER EE 


* Diskette Status Command + 
SREREET ETE EE REESE EEE EEE 


Proc = Near 

Moy Al, DisketteStat yReturn the status of 
Ret jeeathe last operation 
Endp 
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8086/8087/8088 MACRO ASSEMBLER 


LOC OBJ 


ECD ad2be0e80F 
ECDS ABRBRE 


E 

ECF3 Coeaaeoe2e 
ECFa ocea 

ECFA EE 

ECFB @Ce4 

ECFD EE 

ECFE FB 

ECFF E8B781 
ED@e E602 


ED1i EB1392 


EDIF 26804401 
ED23 ESGFe2 
ED26 


ED26 C3 


mm 


mm 


LINE 


DIC/PC BIOS Floppy Disk Driver V1.8 


Reset Command 


MotorTwoBit: 
MotorOneBit: 
MotorZeroBit: 


ResetContinue: 


Reset Return: 


Reset Command 
$Eject 


10:25:34 61/16/84 PABE 


JSS EE EEE PE EEE SEES EEE ESEEEEES 
Reset Command Handler # 
# Returns are via ResetReturn or error conditions in + 
* FDCOut, Probelnterrupt, and GetStatus causing 2 level # 

2 


# return from those procs. 
JAB 


+ 


Dx, PortFDCAdpt Node 


MotorStatus, 080011118 


Lia 


Al, 109808008 
KotorZeroBit 


Al 
Al 


SeekStatus, 8 
DisketteStat, OkStat 
Al, 080218208 

Dx, Al 

fl, 88001228 

Dx, Al 


WaitForInt 
ProbeInterrupt 
Al, FDCStatus 
Al, 11e@@0005 
ResetCont inue 


FoC Error Return 


DisketteStat, BadFDCStat 


ResetRet urn 
Al, FDCSpeci fyCed 
FDCOut 
Al, Specify! 
ee ify2 

peci 
FDCOut : 


yPoint at aie node port 
sPrevent int level motor change 
Strip all but motor bits 
ye..and get it in Al 

sShift motor to upper for i/o 
a..t0 mode port 

yMotor sg 

too. jump if yes 

yMotor oe 

joo. jump if yes 

ater io 

Pia ¢ if no (@ or no sotor) 
sInc 3 times to sel drive 3 


sInc 2 times to sel drive 2 
yInc 1 time to sel drive 1 


;Require resets on all drives 
j2.25et OK status 
yInterrupt/dmea bit 

3.+-turn on aotor, select and reset 
j.e turn off reset bit 
a..FDU now reset 

sRestore interrupts and 
j.eeHait for one 

jGet status 

yReady transition? 
...indicated by C@ status 
jJump if ok 


saesif not, FDC may be bad 
sere juep and error out 


ySpecify timer settings 
gouatd ne : 
sSend SPT and HUT 
ye..5end it to FOC 
sSend HLT and ND 
322.5end it to FDC 


yReturn, FDC will not respond 


8086/8887/8888 MACRO ASSEMBLER 


LOC OBJ 


ED71 sense 
ED74 Bbie 


ED76 E684 
ED78 BAC4 
EDTA E6Q4 


LINE 


DTC/PC BIOS Floppy Disk Driver Vi.8 


SOURCE 


0 te me me me ON me Oe 


TableStruc 
Command 


DMANode 


Write 


Bit 
TheirError 


OurError 


TableStruc 
$Nolist 


DiskI0 


10325354 01/16/84 PAGE 


HEH HE HHA HEHEHE EHH 


# Diskette I/0 Commands (Read / Write / Verify / Format 
# Returns are via ErrorReturn 
or error conditions in Fi 
GetStatus causing 2 level return from those procs. 
* No matter where the return, Al will have the actual 
+ number of sectors transferred 


t 
+ 


aeEdt 
j 


Struc 


Command and Mode Table 


FDCSpecifyoND 
FDCReadCXD 
FDCHr it eCMD 


FDCReadCMD 
“ cipen a 


@ 

DMAReadMode 
DMAkriteHode 
DMAVeri fyfiode 
DHARr it le 


888000018 
SectNotFndSt at 
BadCrcStat 
BadDmaSt at 
SectNotFrdStat 
briteProtStat 
BadAddWarkStat 
BadFDCSt at 


Near 


Di, Ax 
PortDaaToggle, Al 


Al, Table. 
PortDaatiode, Al 


oe 


Ch, 
Dx, Ax 


Send address to DMAC 


beo 


DisketteStat, OkStat 
FOCCommand 


39 Specify command 


ErrorRtnNum, OperationOk 
ut, ProbeInterrupt, and 


te ate he ode Oe 


31 No command for status 


zEnd of track 
;Data error 
sOverrun error 


ySector not found 
yWrite protect error 


yMissing address mark 


ySector not found 


3Cre error 
;Dua error 


Sector not found 


3Write protect 


sAddress mark not found 
sNone of the above (??) 


Clear ints during I/0 ard 


ye..5e¢ OK status 


sGet command 
geoeinto Ax 


s...and then into Di 


sSet first/last f/f = first 


3Get DMA 


wode byte 
jeooand apt tt to DMA 
Translate SEB:0FF to physical address 


yGet se 


nt part of pointer 


yMultiply by 16 (bytes 


jes-in a paragraph 
;Save upper nibble 


fo00iN 


Isolate upper nibble in Al 
H offset 


Add in 


je.eand ot inte Ch 
; 6 bits of address 


Save lower 


foseand output it 


jeeeto 


s...base registers 
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LOC OBJ LINE SOURCE 
ED7C 8ACS 929 Mov Al,Ch yNow output top 
ED7E E681 a Out PortPageChan2, Al t,.,address to page registers 
ae H Calculate Word Count 
ED8® SAbbee 934 ov Ah, NumberOfSectors ;Form # of sectors 
EDa3 3208 935 Xor Al, Al gee times 126 
ED85 DiEa 936 Shr Ax,1 geeoin AX 
ED87 SA4EGE 937 Mov Cl, SectorSize yMultiply by the 
EDSA D3E@ 938 Sh] fix, 01 3...number of bytes in sector 
EDAC 48 a; Dec Ax sCorrect for daa requirement 
a ; Dutput it to DMAC 
EDAD E695 943 Dut Port DMACh2Count, Al jer. and output 
EDAF 86C4 944 Xchg 1,Ah 3...¢o the 
ED91 E685 ae Out Port DAACh2Count, Al 3..2DMA controller 
ach : Test for word count error 
£D93 B6C4 949 Xchg = Al, Ah gRestore count in Ax 
En9S e302 958 Add Ax, Dx sSet carry if crossing 64k 
ED97 7383 es Jnc Notrossing teeeand jusp if so 
ee H Crossed 64k, Error return 
4 
E99 FB 955 Sti yInterrupts Ok now 
EDSA Cheseseee9 E 956 Mov DisketteStat, DMAPageStat:...else loadup error code 
EDSF £9148) = Jup ErrorReturn jeesand return 
EDA2 959 = NoCrossing: hy 2 
EDAe Bee 969 Mov Al, 200000108 ;Get mask bit for DMAC i 
EDA4 E6GA 961 Out Port DMAMaskSng1, Al s...and enable the transfer Ac | 
963 H Turn on drive motor and select drive Pe. ee 
964 a 
EDAG ChQb0R0FF E = Rov KotorCount, 255 ySet large value during 1/0 Ay % 
_ ; Calculate Drive Bit from Drive Number P te 
EDAB SASE82 969 Mov Bl, DriveNuaber yGet drive number in = 
EDAE 32FF 978 Xor ' foes Bx ,% 
EDB@ 2EBAS739ED 971 Mov Al, Table. Bit (Bx) y...and calculate bit number be) 
EDBS 8AE8 972 Mov Ch, Al ys..5ave in ch for seek A} 
973 ery 
ae : Indicate on for compatibility me 
EDB7 @b0b0d22 E ae Or MotorStatus, Al yindicate in status byte 
ae H Actually turn it on and select drive } ae 
i 
EDBB B14 982 Mov 1,4 sMove sotor bit to L 
EDBD DeE® 981 Shi Al,Cl [nalpeet nibble 
EDBF @ACS 982 Or Al, Bl f..e¢hen or in drive number a 
EDC1 acec 983 Or Al, 680011608 3Add enable and not reset Opes 
EDC3 BAF2@3 984 Rov Dx, Port FDCAdpt Mode s.-.point at adapter 1/0 port at 
EBC6 EE ar Out Dx, Al jeeeand output the data 
Eel i Restore interrupts from DMA section above 
EDC7 FB = Sti sRestore interrupts from above 
aes t If write, wait for motor up to speed 
EDC8 2EBA85332D 993 Mov Al, Table. WritelDil ylest if command involves write 
EDCD Bagdeaee E 994 Or NotorStatus, Al sy... (for compatibility) 
EDDi @ACR 995 Or Al, Al jeeeand affect flags 
EDD3 7912 Bg Jns WaitDone tae. jump if read (upper bit=@) 
ae i Write command, wait for sotor up to speed 
EDDS 268A640A 1008 Mov Ah, MotorStart sAh=# of 125m5 to wait 
EDDS @AE4 1801 Or Ah, Ah Affect flags 
EDDB 74@A 1802 Jz WaitDone jee eif no wait (27), comply 
EDDD Si 1883 Push Cx ySave bit position in Ch 


8086/6087/8088 MACRO ASSEMBLER 


Loc OBJ LINE 
EDDE 1804 
EDDE 3309 188 
EDE@ 1686 
EDE® E@FE 188 
EDEe FECC 1028 
EDE4 75F8 1989 
EDE6 59 101 
EDE7 1811 
1812 
1013 
1014 
EDE7 84280000 E 1815 
EDEB 7514 1016 
EDED G82E0888 E 1817 
EDF1 BeQ7 1818 
EDF3 E89FQ1 1619 
EDF6 8AC3 1020 
EDF E89A01 1821 
EDFB ESBBae 1822 
EDFE EBGAG1 1823 
81 1824 
EEGi BOG 1825 
EE@3 EBOF Ol 1026 
EE@6 BAC3 1027 
EE@S EQBAG1 1828 
EEQB 8A4603 1829 
EEGE E86481 1038 
EE11 EBA5Q@ 1831 
EE14 £85481 1032 
EE17 26804409 1833 
EE1B @AC8 1834 
EELD 7489 1835 
EEIF 1036 
EEIF B92602 1237 
EE2? 1838 
EEC? E2FE 1039 
EE24 FECA 1048 
EEC6 7OF7 1841 
EE 1842 
1043 
144 
1845 
FE28 2EBAaSe7ED 1046 
Eee) E86591 1847 
EE3@ BA4694 1048 
EE33 2481 1849 
EE35 DeeO 1858 
EE37 DOEQ 1051 
EE39 8AC3 1852 
FE3B £85701 1853 
EE3E 80760105 1834 
FE42 7510 1935 
1956 
1957 
1858 
EE44 BA4E06 1859 
EE47 EG4B01 1860 
EE4A 8A4687 1061 
EE4D £64501 1062 
EFES@ 268A4487 1063 
FES4 EGSE@1 1864 
EES7 268A4408 1865 
EESB £83701 1866 
EESE EBQF98 1867 
1058 
1869 
1972 
FEGi 1071 
FEG1 BS8780 1872 
EEG4 BFO38@ 1873 
EE67 1074 
EEG7 8AG3 187; 
EE69 £62901 1876 
EEGC 47 177 
EE6D EeFé 1878 


DIC/PC BIOS Floppy Disk Driver V1.0 10:25:54 81/16/84 PAGE 
SOURCE 
QuterLoop: 
eps tents, Xor Cx,Cx Max count in Cx 
ighthSecLoop: 
Loop  EjighthSecLoop jLoop for 125 us 
Dec Ah sDecreaent outer loop 
Jnz QuterLoop feceand a to the top of it 
ustte Pop Cx Restore bit position in Ch 
jaitDone: 
; Seek to track Ch = Motor Bit, Bl = Drive # 
Test SeekStatus, Ch yNeed recal? 
Jnz NoRecal Reqd fea. jump if no 
Or SeekStatus, Ch 3Show as recal 
Mov «11, FDCReca CMD +...and send recal 
Call = FDCOut 3...command to FDC 
Mov Al, Bl sThen send drive number 
tall FDeut a jucswhich is in BI from above 
itForIn sWait for results 
Call Probelnterrupt ‘Get status 
NoRecal Reqd: 
aa ct a oeen ae cre command 
m FaestO 
Hoy ALB Send drive nusber 
lu 3e2etO 
a ak all iSend tonne number 
lu je». to 
Call‘ WaitForInt sWait for results 
Call = ProbeInterrupt yGet status 
Mov Al, HeadSett le yGet head settling time 
‘Or ae jeaerone (22), comply 
sinter Loops Jz MST iserDone j..eand end timer 
Fae "ov Cx, 308 31 ms timer 
neMsLoop: 
Loop § OnetisLoop yLoop for a ms 
Dec Al yDecrement outer loop 
ak Jnz MSOQuterLoop yLoop till done 
H Perform the operation 
ah alae: Command {Di] ;Get operation command 
lu ge.,and send it 
Mov All, HeadNusber ‘Get head number 
And Al, 888002018 t,.,make sure @ or 1 
Shl 5 j..move it into 
Shl Al,1 jee position 
Ri eat feces ioe aay dine 
lu s.eeand output secon e 
Crp FDCCommand, DiskCadFormat ;Are we formatting? 
Jne NotFormatting gee Jump if not 
; Load parameters for format 
Mov Al, SectorSize SFDC "N" parameter 
Call  FDCOut je. -Send out 
sie ater. 
lu $oee SEN 1 ou 
ote aoe FDC ng ol 
lu je. .5end it ou 
Kova ForaatFiller tFDC *D" paraneter 
lu go..5end 1¢ ou 
Jnp  CoumandLoaded ‘Continue below 
H Load parameters for read / write / verify 
NotFormatting: 
Mov Cx,7 Transfer 7 bytes from 
, ov Di,3 je. Stack frame starting at 9 
FrameLoops 
Mov Al, (Bp) (DiJ ;Get byte fron frame 
Call FDCOu j...and send it 
Inc Di t,e2inc index to next byte 
Loop  FrameLoop sLoop till 7 bytes moved 


le 
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LOC OBJ LINE 
1079 

1280 

181 

EEGF 1082 
EFEF E8478 1883 
EE72 EBFBOd 1884 
1885 

1086 

1087 

EE7S AQBBRe E 1888 
EE78 24CO 1@89 
EE7A 7426 129 
EE7C 3040 1091 
EETE 7488 1092 
FESR Coabeeed2e E 1093 
EEaS EBIBSO 1094 
1995 

1096 

EEa8 1097 
EEGs AgVieB E 1#98 
EEBB BIG6RO 1099 
EERE 3308 1180 
EE9@ 1181 
EE9@ 2EB4873DED 1182 
EE9S 7583 1183 
EEI7 43 1184 
EE98 E2F6 1185 
1186 

1187 

1198 

EEA 1189 
EE9A 2E8A8743ED 1118 
EESF A288 E 1111 
1112 

1113 

EERe 1114 
EEAe 1115 
EEA E 1116 
EEAS 3A4693 1117 
EEAS AbESOO E 1118 
EEAB 7485 1119 
EEAD 84607 1128 
EEB@ FEC 1121 
EEB2 1122 
EEB2 2Ak6@5 1123 
FEBS C3 1124 
1125 

1126 

6 1127 
EEBG Bee? 1128 
8 C3 1129 
1122 

1131 

1132 

1133 

1134 

1135 

EEB9 1136 
EEB FB 1137 
EEBA 33209 1138 
EEBC Beee 1139 
E 1148 


EEC3 F8 1142 
EEC4 7519 1143 
EEC6 E2F6 1144 
EECB FECA 1145 
CA 75Fe 1146 
EECC C6e6a0e080 E 1147 
1 58 1148 
EED2 32C@ 1149 
EFED4 F9 1158 
EEDS C3 1151 
EED6 1152 
EED6 802600007F E 1153 
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SQURCE 
H Wait for interrupt 
CommandLoaded: 
Call WaitForInt yHait for end of op. interrupt 
Call BetStatus y>2Read in the status 
; Test for error 
Mov Al, FDCStatus Get first status byte 
And Al, 110808008 3... normal termination? 
Jz Operat ionBk see. juap if ok 
Cup Al, 010000008 t...abnoraal termination? 
Je Translate ene guap if yes 
Mov DisketteStat, BadFDCStat ;...else error return 
Jap ErrorRtnNum teeeactual transferred 
Translate FDC error to our error 
Translate: 
Mov Al, FDCStatus+! jLook at second byte 
Mov Cx,6 +6 bits to translate 
Xor Bx, Bx ze.epoint at byte @ 
ErrorLoop: 
Test Al, Table. TheirError(Bx] ;Test a bit from table 
Inz ErrorFound je.eand jump if it is set 
Inc Bx je. .Dump pointer 
Loop = ErrorLoop t...and loop till done 
; Falling thru to here means no bits were set (FDC error) 
ErrorFound: 
Mov Al,Table.QurError[Bx]  ;Translate from table 
Mov DisketteStat, Al s.ecand into DisketteStat 
; Calculate # of sectors transferred and return in Al 
ErrorRtnNum: 
OperationOk: 
Mov Al, FDCStatus [3] yGet track we ended up on 
Cmp Al, TrackNusber 3..,compare it to starting tk 
Mov Al, FDCStatus (51 g...get last sector 
Je OnfameTrack eo. guap if didn’t roll over 
Mov Al, EOT yGet last track 
Inc Al s.+.plus 1 into Al 
OnSameTrack: 
Sub Al, SectorNusber sReturn end minus start 
Ret jee e@quals num transferred 
; Return for pre-operation errors 
ErrorReturn: 
Kov Al,@ yNo sectors transferred 
Ret sReturn, operation failed 
DiskI0 Endp 
; JAH EE 
G # Wait for Interrupt and Return Result + 
: JAHEEHEHHHEEEE 
WaitForInt Proc = Near 
Sti sInts on 
Xor Cx, Cx ySetup for 2 second wait 
Hov Al,2 jeaefor interrupt 
IntWaitLoop: 
Test  SeekStatus, 100000208 Interrupt will set this 
Clic ye.-Clear carry for return 
Jnz IntOccurred jose jump if interrupt 
Loop IntWaitLoop yLoop t111 int occurrs 
Dec Al yDecreaent outer loop 
Inz IntWaitLoop j...and loop some more 
Mov DisketteStat, TimeQutStatsSet error status 
Pop Ax sDiscard return address 
Xor Al, Al yIndicate @ bytes xferred 
Stc sSet carry for error and 
Ret 3,..return 2 levels up 
IntOccurred: 


And SeekStatus, 011111118 


yTurn off interrupt bit 


13 
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LOC OBJ 
EEDB C3 


EEFe 7588 

EEF4 COehe20020 
EEF9 

EEF9 59 


EEFA F9 
EEFB C3 


EF6B Beea 


LINE 


DTC/PC BIOS Floppy Disk Driver V1.2 


SOURCE 


WaitForInt 


woe ee ee 


FDCIn 


FDCInLoop1: 


MasterReady: 


FDCInRtn: 


CorrectDir: 


PauseLoop: 


wm ne ane 


FloppyHder Int 


FloppyHdwr int 


oer Ty 


ResultProc 


Probelnterrupt: 
Mo 


GetStatus: 


Ret 
Endp 


eH EE EEE EE 


* Read Data from Controller # 
JAB 


Proc = Near’ 

Push = Cx 

Yor Cx, Cx 

Mov Dx, PortFDCSt at us 
In Al, Dx 

Or Al, Al 

Js Hasteready 

Leop  FDCInLoo 


Foy Diskette tat TimeDut Stat; 


Jmp , Short FDCInRtn 


Test Al, 019¢00008 
Jnz CorrectDir 
Mov DisketteStat, BacFDCStat ; 


Pop Cx 

Stc 

Ret 

H Data ready 
nc Dx 

In Al, Dx 

Push Ax 

Mov Cx, 1@ 

Loop PauseLoop 

Dec Dx 

In Al, Dx 

Test Al, 900100008 

Cic 

Pop Ax 

Po Cx 

Re 

Endp 
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se..return 


ySave Cx 
iMaxigus timeout 
Pointer to FDC Status port 


sGet status 

"Affect flags 

slf upper bit set, jump 
sLoop till master set or T.0. 
FDC did not respond, error 
yee return 


aad direction? 
. Jump if so 
re ...Blse chip is bad, error out 


yIndicate error 
jeeeand return 


sPoint at data port 

Get a byte 

jzs.and save it 

yPause and let FDC get another 


jy... byte ready if it has one 
sPoint back at status 
eo get it 

.-test if still busy. Return 
jee Carry clear and 
yea srestore data 
jeseand registers, return 
y...271 if last byte 


EREEEEEEREREEEL LSE REE EEELE SERS LESTE 


# Disk Interrupt Service Routine # 
JAH EEE EEE EEE EE 


Org @EFS7H 

Proc Far 

Sti 

Push Ds 

Push Ax 

Mov Ax, BiosDatafrea 
Moy 


Ds, Ax 
Or SeakStatus, 100000008 
Mov Al, PicEO! 
ut Port PICOCWE, Al 


Pop Ax 
Pop Ds 
Iret 
Endp 


HEERLEESESELELELESELE AEE 


* Read Operation Resuli # 
ABH 


Proc Near 
N] Al, FDCSenselnt CMD 
Call  FDtOut 


yRestore interrupts 

Save Data segment 

save an intermediate register 
sLoad data segment 

ie. ewith Dios sequent 
‘Turn on indicator bit 
Interrupt ack to Pic 
eest0 restore higher ints 
Restore 

1. as Pegisters 

sRestore flacs and return 


;Send command to sense int 
y..to FDC 
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LOC OBJ LINE 
EF7@ 53 1229 
EF71 51 1232 
EF72 B9Q7@B 1231 
EF75 Baeaee 1232 
EF7B 1233 
EF78 EBBIFF 1234 
EF7B 72@E 1235 
EF7D 88878009 E 1236 
EF1 74@F 1237 
EFB3 43 1238 
EFB4 EeFe 1239 
EFa6 Cbe6000028 E 1248 
EFAB 1241 
EFaB F9 1242 
EFaC 99 1243 
EF8D SB 1244 
EFBE 58 1245 
EFSF 3208 1246 
EF91 C3 1247 
EF92 1248 
EF92 39 1249 
EF93 5B 1258 
EF94 C3 1251 

1252 

1253 

1254 

1255 

1206 

1257 
EFI 1258 
EF9S 51 1299 
EFI6 52 1268 
EF97 38 1261 
EF98 3309 tebe 
EFSA BAF4B3 1263 
EFSD 1264 
EFSD EC 1265 
EFSE BAC 1266 
EFAG 7809 1267 
EFA2 Eero 1268 
EFA4 Cagoeeeede E 1269 
EFAY EB12 1278 
EFAB 1271 
EFAB AB4@ Le72 
EFAD 7497 1273 
EFAF Cheoeaeece E 1274 
EFB4 EBQ7 $275 
EFBG 1276 
EFBG 42 1277 
EFB7 1278 
EFBa EE 1279 
EFB9 F8 1268 
EFBA 5A 1281 
EFBB 59 1282 
EFBC C3 1283 
EFBD 1284 
EFBD 38 1285 
EFBE 5A 1286 
EFBF 39 1287 
EFC@ 58 1288 
EFC! 320 1289 
EFC3 F9 1290 
EFC4 C3 1291 

1292 

1293 

1294 

1295 

1296 

1297 
EFC7 1298 

1299 
EFC7 CF 1388 
EFCE @2 1321 
EFC9 25 1302 
EFCA 82 1383 
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SOURCE 
Push = Bx 
Push Cx 
Mov Cx, 7 
Nov Bx, @ 
ResultLoop: 
Call FDCIn 
Je StatErrRtn 
Moy FOCStatus {Bx}, Al 
Jz StatusReturn 
Inc Bx 
Loop ResultLoo 
Mov DisketteStat, BadFDCStat 
StatErrRin: 
Ste 
Pop Cx 
Pop Bx 
Fop Ax 
Xor Al, Al 
Ret 
StatusReturn: 
Pop Cx 
Po Ex 
Re 
ResultProc Endp 
; JERE EEE EE 
: # Write Data to Controlier # 
; pErtrtitittr ttt rtriiit itis iris 
FOCOut Proc Near 
Push = Cx 
Push = Dx 
Push = Ax 
tor Cx, Cx 
Mov Dx, PortFDCS¢ at us 
FDCOutLoop!: 
In Al, Dx 
Gr 81,81 
Js OutMasterRdy 
Loop FDCOutLoopt 
Mov DisketteStat, TimeDutStat 
Jup Short Outerrktn 
OutMasterRdy: 
Test Al, 019000285 
Jz OutCorrectDir 
Mov DisketteStat, BadFDCStat 
Jmp Short OuterrRtn 
OutCorrect Dir: 
Inc Dx 
Po Ax 
Ou Dx, Al 
Cle 
Pop Dx 
Po Cx 
Re 
GutErr Rtn: 
Pop Ax 
Pop Dx 
Pop Cx 
Pop Ax 
Xor Al, Al 
Ste 
Ret 
FocOut Endp 
: rertrirititi¢ietitiiet eos 
: * Disk Base Parameters +* 
F JAH EEEEEE 
Org GEFCTH 
FloppyParamsPointer Db 119011118 
Db QGO2221 CE 
Db 37 
Db 2 
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y..0and Cx 
rGet 7 bytes max from FDC 
¥.2.58¢ pointer to first byte 


yGet a byte 

t.2.jump if an error occurred 
j...and store it 

sJump if the FDC is empty 

j-. else bump pointer and 


g... loop ; 
sMore than 7 bytes i5 an error 


Set gh for error return 
yRestore Lx 

ge.eand Bx 

yDiscard return address 
Indicate @ bytes xferred 
jeeeand return 2 leveis up 


Restore Cx 
jeeearid BX 
jand return error 


Save 

jee registers 

gee On Stacd 

yMaximum timeout 

;Pointer to FOC Status port 


yGet status 

Affect flags 

yIf upper bit set, jump 
yLoop till master set or 7.0. 
3FDC did not respond, error 
fees JUD and return error 


;Correct direction? 
jeeagump if so 

s...@ise chip is bad, error out 
jase gump and return error 


yPoint at data port 
yRestore data to output 
3 ne and output it 
yClear carry 

yRestore Dx 

qeeeand Cx 

je.eand return 


sRestore Ax 

sRestore Dx 

t...and Cx 

iDiscard return address 
yIndicate @ bytes xferred 
yeerand set carry flag 
3...and return 2 levels back 


sAlign with PC / XT 


Specify byte 1 
erent byte 2 
yMotor timeout wait 
yoi2 bytes per sector 


8086/8087/8088 MACRO ASSEMBLER 


LOC OBJ LINE 
EFCE @8 1304 
EFCC 2A 1385 
EFCD FF 1386 
EFCE 5@ 1387 
EFCF F6 1308 
EFD@ 19 1309 
EFD1 24 1318 

{Hi 
iarasd i312 

1313 

1314 


ASSEMBLY COMPLETE, NO ERRORS FOUND 


DTC/PC BIOS Floppy Disk Driver V1.0 


SOURCE 
Db 8 
Db 42 
Db QFFH 
Db 88 
Db QFGH 
Db 23 
Db 4 

Bios Ends 

End 


10:25:54 02/16/84 PAGE 16 


jyLast sector on a track 
sGap iength 
sDTL 


Format gap length 
Format fili byte 
sHead settle time 
jMotor start time 
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IBM PC/XT 8086/8087/8888 MACRO ASSEMBLER V1.1 ASSEMBLY OF MODULE PRINTER 
OBJECT MODULE PLACED IN PRINTER, OBJ 
ASSEMBLER INVOKED BY: ASM8G PRINTER. SRC 


LOC OBJ LINE SOURCE 

1 +1 $Title (DIC/PC BIOS Parallel Printer Driver 1.8") 

2 +1 $Pagelength (88) Pagewidth (ide) Debug Nogen 

3 Name Printer 

4 

3 

. . Author: Don K. Harrison 

: ; Start date: November 25, 1983 Last edit: December 28, 1983 
18 

il ; SEEPS EEESEEETEEEEEREEEE 

12 : * Module Description # 

13 : JAHEEHEH HEHE EEE 

14 

15 : This module handles the parallel printer driver, accessed via 
16 ; interrupt 17H. 

17 

16 

19 
& 
#1 
22 H (c) Deeley Telecommunications Corporation, 1983 
= 1] Rights Reserved 

és 
25 $E ject 


1 
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LOC Obs LINE 


DIC/PC BIOS Parallel Printer Driver V1.2 


SOURCE 


SEERELEL ERAT ERE LES ELSE 


# Revision History # 
AHHH EEE 


wan we we 


$Eject 
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Loc «OBJ LINE SOURCE 
39 
4Q ; SEE EEE 
4} ; # Public Symbols + 
ho ; EEREEEEEEEEEEEREEEEE 
43 
Public PrinterDriver 
46 
47 ; EEEEEELEEEEEE 
48 : * Equates # 
49 ; SEREEEEEERE 
a8 
= ; All Equates in include file: IbmInc 
a3 $Include (Ibmlnc) 

1 34 ; pretirtecretccerercrccrrs % 
=] «55 7 # Global Include File # 
=| 56 H eetetiteritttitterert rer) 

57  $Nolist 
a7 $Eject 


8086/R287/8088 MACRO ASSEMBLER 


LOC OBJ LINE 


— 585 


DIC/PC BIOS Parallel Printer Driver V1.8 18:24:28 81/16/84 
SOURCE 
; JERE 
H # Data Segments + 
: JESSE 
BiosDatafrea Segment Public 
Extrn PrintTimeQut:Byte, PrinterBase:Word 
BiosDatafrea = Ends 
$Eject 


PAGE 


4 


8086/8087/B@88 MACRO ASSEMBLER 


LOC OBJ 


EFE® BE97 R080 E 
EFE4 @BDe 
EFEG 748C 


EFEE 7438 
EFF@ FECC 


BABF O82 E 


FO@E OCOi 
F@18 24F9 
F@12 EBI190 
Fe15 

F@1S 42 
Fe16 Bead 
F@18 EE 


FQ19 


LINE 


DTC/PC BIOS Parallel Printer Driver Vi.@ 
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SOURCE 
; HHH HOHE 
; * Code Segment # 
F JABBHEHEHHEHEEE 
Bios Segaent Common 
Assume Cs:Bios, Ds:BiosDatafrea 
Org QEFD2H 
PrinterDriver Proc Far 
Sti yRestore interrupts 
Push = Ds ;Save registers 
Push = Bx fee that 
Push = Cx fear h® 
Push = Dx jeeeWill use 
Mov Bx, BiosDataArea sPoint at our 
Mov Ds, Bx j.»-data segment 
Mov Bx, Dx ;Use Bx as index of ae 
Shi Bx, 1 q... (ports are words 
Mov Dx, PrinterBase [Bx] j...and get our port 
Or x, Dx slf none, return 
Jz PrinterReturn j-eeno particular status 
: Do case on command 
or Ah, Ah jCase = @? 
Jz PrintChar yes.if so, jusp and print char 
Dec Ah A Case = 1? 
Jz Print Initialize 3...if so, init printer 
Dec Ah ;Case = 24 
Jz PrintStatus ja.-if So, jump and return status 
; If illegal command, just return 
PrinterReturn: 
Pop Dx yRestore registers we 
Pop Cx y... Used 
Pop Bx Jeaea 
Pop Ds s..ereturn 
Iret j»..to caller 
; JABBEEHE HEHEHE 
; * Print Character in Al +# 
3 EELLELEEEAELE EEL EREREEERERE 
PrintChar Proc Near 
Out Dx, Al 3Send char to printer 
Inc Dx jeeathen point at status 
Mov Bh, Print TimeOut £Bx] sGet $ of loops in Bh 
Mov Ah, Al ¥..05ave print character 
PrintOuterLoop: 
Xor Cx, Cx yMaximum loop count 
Print InnerLoop: 
In Al, Dx ;Get the status 
Or Al, Al 3...and affect flags 
Js StrobeChar jee. Jump if not busy 
Loop Print InnerLoop s.e-else loop till not busy 
Dec Bh yDecrement outer loop 
Jnz PrintQuterLoop s..and loop 
; Timeout 
Or Al,1 ye..5@t timeout error 
And Al, 111118818 geeemask unused bits 
Jap StatusRet urne gee.and return status 
StrobeChar: 
Inc Dx sPoint at command port 
Mov Al, 080011018 ;Strobe = high 
Out Dx, Al z...¢0 printer 
; This is an entry point from PrinterInitialize 
StatusReturns: 


5 


a 


8056/8087/8088 MACRO ASSEMBLER 


LOC OBJ LINE 
FOi9 BBC 662 
FOB EE 663 
FOLIC 4A 664 
FQiD EBAS 665 
666 

667 

668 

659 

670 

671 

FOLF 672 
F@IF BAEC 673 
F@21 42 674 
F@2e 675 
F@22 E 676 
F@23 24FB 677 
F@25 678 
F@25 3448 679 
Fee7 8604 680 
Fe29 EBC9 681 
682 

683 

684 

685 

686 

687 

B 688 
FO2B BAEG 689 
F@2D 42 698 
FOE 42 691 
FO2F Beda 692 
FQ31 EE 693 
Fae BODC8 694 
Fi 695 
F@35 E@FE 696 
FQ37 EBEO 697 
698 

699 

788 

781 

7é2 

783 

as 704 
785 

706 


ASSEMBLY COMPLETE, NO ERRORS FOUND 


SOURCE 


PrintChar 


os ee we 


PrintStatus 


StatusReturnl: 


StatusReturn2: 


PrintStatus 


22 we oe 


PrintInitialize 


InitDelay: 


PrintInitialize 
PrinterDriver 
Bios 


End 


DIC/PC BIOS Parallel Printer Driver Vi.@ 


Mov Al, 00001 1008 
Out Dx, Al 
Dec 


Dx 
Jump Short StatusReturn! 
Endp 
JRA 


# Return Printer Status # 
JAH 


Proc Near 

Mov Ah, Al 

Inc Dx 

In Ai, Dx 

And Al, 0111110008 
Xor Al, 010018008 
Xchg = AL, Ah 


Jup PrinterReturn 


JAB EE 
# Initialize Printer + 
JAB EEE 


Proc Near 

Mov Ah, Al 

Inc Dx 

Inc Dx 

Mov Al, 800010008 
Out Dx, Al 

Mov Cx, 1500 

Loop InitDela 

Jap StatusReturndg 
Endp 

Endp 

Ends 
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yStrobe = low 
2.20 printer 
sPoint back at status 
?,..and return with it 


;Preserve Al 
tIncrement to status port 


jeeeand get status 
ye. oturn off unused bits 


yes.and flip sense of some 
jeeAl=char, Ah=status 
tera jump and return status 


sPreserve Al 
sPoint at command 
joe port 

yInit bit 

ye.to printer 
Delay 


jeefor reset pulse 
se. other pune and turn off 
ta.cinit bit and return status 
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IBM PC/XT 8@86/8@87/8088 MACRO ASSEMBLER V1.1 ASSEMBLY OF MODULE VIDEO 
OBJECT MODULE PLACED IN VIDEO. OBJ 
ASSEMBLER INVOKED BY: ASMAE VIDEO. SRC 


LOC OBJ LINE SOURCE 

1 +1 $Title (DIC/PC BIOS Video Driver V1.2") 

2 +1 $Pagelength (88) Pagewidth (132) Debug 

3 Name Video 

4 

3 

é 3; Buthor: Don K. Harrison 

: ; Start date: November 26, 1983 Last edit: December 27, 1983 
18 

ii : JHB 

le * Module Description +* 

13 ; JAHRE EEE EEE 

14 

15 7 This module, accessed via interrupt 18K, handles both alpha 
: s and graphics video modes of either type viceo interface card. 
1 

18 

19 
2 
21 
22 H {c) Disglay Telecommunications Corporation, 1983 
a H 1] Rights Reserved 
20 +1 $Eject 
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LOC OBJ LINE SOURCE 


PEE EERE EEE 
# Revision History # 
JAB 


ro 
wo 


38 +1 $Eject 
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LOC OBJ 


Wot 


— te ee 


LINE 


31 


paket ba be od 


60 
i +i 
SBI +t 


OTC/PC BIOS Video Driver V1.2 


SQURCE 


on He me 


AsciiBackspace 
fsciiLineFeed 
AsciiCarriage 
AsciiBell 


+1 $Include (Ibslnc 


$Nolist 
$Eject 


EEREEELLELESELE SELLE 


# Public Symbols # 
HEHE HEHEHE 


Public VideoDriver, VidParamsPointer 


UHHH 
# Equates * 

SEEEEEEEEELE 

Equ 68H sAscii characters 
Equ @AH jes for 

Equ @DH Zoran TY 

Equ @7H j-. procedure 


) 
JASE EEE EES 


* Global Include File # 
SEPLEE EEE 
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LOC OBJ 


LINE SOURCE 
a2 

383 : 

384 : 

383 ; 

586 


387 IntSegeent 
589 TntSegaent 
591 BiosDatafrea 


596 BiosDatafirea 


398 MonoSeg 
399 MonoSeg 
682 

601 ColorSeg 
682 ColorSeg 


683 
684 +1 $Eject 
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SELERSLS ELE HEE LEE EE 


# Data Segments * 
EESEEPLEREE ELE LEEE 


Sa Public 
a rn VidParamsTrapAddr:DWord, VideoGraphicsTrapAddr: DWord 
5 


en Public 
Extrn CrtRode:Byte, CrtColumns:Word, CrtLength:Word 
Extrn CrtStart:Word, CursorPosn:Word, CursorMode:Word 
Extrn ActivePage:Byte, ActiveCard:Word, CrtModeSet :Byte 
pen CrtPalette:Byte, EquipFlag:Word 

S 


Sequent Public 
Ends 


Segaent Public 
Ends 


PAGE 
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LOC OBJ LINE 

685 

6@6 

687 

608 

689 

618 

6il 

bi2 

613 

614 

615 

616 

617 

618 

619 

620 

621 

622 

b23 

624 

625 

626 

627 

628 

629 

638 

631 

632 

90830) 633 

Ge020) 634 

00871) 635 

B8860] 636 

0006] 637 

0009(] 638 

B208() 639 

G@08() 648 

@209(] 641 

@826[] 642 

8008) 643 

00061) 644 

8209) 645 

8008) 646 

O02 () 647 

8807] 648 

00240) 649 

Q283(] 650 

eee2] 651 
8082) 

8207 (] 63 

8009) 654 

O086[) 655 

Goda [] 656 

@0060) 657 
08080) 

B8251] 659 
82050) 

8e02[) 661 

0@03[) 662 

8806[] 663 

0804[) 664 

8005[) 665 

00040] 666 

8008() 667 
0006 [] 

ed820) 659 

88040] 678 

0083[] 671 

8882] 672 

673 

674 
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SOURCE 


SAHA HEE 


# Stack Frame + 
PEPPERS EESSESES 


err re ee re ee eet en ree err rere ree) 


SERLELESL HEE REL ELE EEE REEE 


; 
H # Stack Frame Equates # 
: JAH HEHEHE 


Byte Ptr ([Bpt3] 
Byte Ptr [Bpt2] 
CursStartLine Equ 
Curs€ndLine Equ 


CursCommand Equ Word Ptr [Bpt6] 
SetRow Equ Byte Ptr [Bp+9] 
SetCol Equ Byte Ptr ([Bpta] 
Set RowCol Equ Word Ptr [Bp+a] 
ReadRow Equ Byte Ptr (Bp+9] 
ReadCol Equ Byte Ptr [Bp+8] 


ReadRowCol Equ 
ReturnCursMode Equ 


LpRow Equ Byte Ptr [Bpt+9] 
LpCol Equ Byte Ptr (Bp+8} 
LpRowCol Equ Word Ptr [Bp+8] 
LpRasterLine § Equ e Ptr [Bp+7} 
LpPixel Equ Word Ptr [Bpt4] 
LpStatus Equ Byte Ptr (Bpt3] 
edoliy Equ Byte Ptr (Bpt+2] 
ScroliNumRows  Equ Byte Ptr (Bpte] 


ScrollUpperRow Equ 
Scrol lLowerRow 
ScrollUpperCol 
ScrollLowerCol Equ 
Scrol lUpper Equ 


ScrollLower Equ Word Ptr EBpt8] 
ScrollAttrib Equ Byte Ptr (Bptdl 
DisplayPage Equ Byte Ptr (Bpto) 
Char Equ Byte Ptr [Bpt2 
AttribOut Equ Byte Ptr [Bpt3] 
CharCount Equ Word Ptr [Bpt6] 
AttribIn Equ Byte Ptr CBp+4] 
Colorid Equ Byte Ptr [Bpt5] 
ColorValue Equ Byte Ptr [Bpt4] 
Dot Row Equ Word Ptr [Bp+8] 
Dotlol Equ Word Ptr [Bpt6] 
Dot Equ Byte Ptr ([Bpt2] 
Tr¥Foreground  Equ Byte Ptr [Bp+4] 
Coluans Equ Byte Ptr [Bpt+3] 
VideoSegment  Equ Word Pir [Bpt@] 


675 
676 +1 $Eject 
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Bpl16] 
Bpti4] 
Bpti2i 
Bpli@] 
Bpl83 
Bpl6] 
Bpl4] 
Bpl2] 
Bple2 


All - command 

;Set mode/state - mode in/out 
yCurs type- start line 

jCurs type- end line 

rCurs type- start and end 
ySet curs- row 

ySet curs- column 

Set curs -row and coluam 
yRead curs- row 

;Read curs- colusm 

yRead curs -row and column 
sRead curs -current cursor moce 
yRead Lp - row 

yRead Lp - col 

sRead Lp - row and coluan 
sRead Lp - Raster line 

sRead Lp - Pixel # 

yRead Lp - Exit status 

sSel Active - new active page 
sSeroll - # of rows to blanx 
yScroil - Upper row 

;5croll - Lower row 

yScroll - Upper column 
Scroll - Lower column 
‘Scroll - Upper row and column 
Scroll - Lower row and coluim 
yScroll - ere attribute 
sChar handling - display page 
yChar handling - char in/out 
yChar handling - attrib out 
yChar handling - repeat count 
sChar handling - attrib in 
;Set Pallette - Color Id 

Set Pallette - Color value 
sRead/write dot - row number 
yRead/write dot - col number 
yRead/write dot - dot in/out 
STTY - foreground color 
State - # of columns 

sVideo segment 


on 


8086/8087/8888 MACRO ASSEMBLER 


LOC OBJ 


F@63 D9F6 


F@65 
FO65 FB 
FQ66 FC 


FQ88 SBEC 
FAA £87788 


LINE SDURCE 


nm 
—i 
co 

~s8 wwe we 


681 Bios 


685 JumpTable 


783 VideoDriver 


22 
Te3 SegNotHona: 


TAR VideoDriver 
TAL 
742 +1 $Eject 
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EERELEELELEPESEEEE 


# Code Segment # 
SEEELEESELE TFET ELE 


Segment Common 
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Extrn VideoGraphicsPointer:Byte, Beep:Near 
Assume (Cs:Bios, Ds:BiosDatafrea, Es:Nothing 


Org QFQ45H 

Label Word 

Dw Offset SetMode 

Dw Offset SetCursorType 
Dw Offset SetCursorPos 
Dw Offset ReadCursorPos 
Dw Offset ReadLpPos 
De Offset ActivatePage 
Dw Offset Scroll 

Dw Offset Scroll 

Dw Offset ReadWrite 
Dw Offset ReadWrite 
Dw Offset ReadWrite 

Dw Offset SetColor 

Dw Offset WriteDot 

Dw Offset ReadDot 

Dw Offset WriteTTY 

Dw Offset VideoState 
Proc Far 

Sti 

Cld 

Push Bp 

Push Es 

Push 

Push = Si 

Push Di 

Push Dx 

Push Cx 

Push Bx 


And Bl, 


Ax 
ov Bx, BiosDatafrea 


x 
Mov B1,B e Ptr EquipFlag 
110@885 


Cmp Bl, 821188008 
Mov Bx, ColorSeg 
Jne SegNotMono 
Mov Bx, NonoSeg 


Push = Bx 
Mov Bp, Sp 
Call  CommandDispatch 
Pop Si 
Pop Ax 
Pop Bx 
Pop Cx 
Pop Dx 
Pop Di 
Pop $i 
Pop Ds 
Pop Es 
Pop Bp 
Iret 

Endp 


;Change modes 

ySet cursor a 

yMove cursor to position 

sRead current cursor position 
tRead Light pen position 
sActivate new page 

sScroll UP 

yScroll DOWN 

yRead char and attrib at cursor 
Write char and attrib at cursor 
sHrite char at cursor 

ySet color and background 
sHrite a dot 

yRead a dot 

jkrite glass tty 

yReturn current video state 


sRestore interrupts 
sClear direction 
feerscvesuenvvaseen 
: Save 

:, Registers 


e 
q 
. 
4 
‘ 
4 
® 
® 
1 
q 
. 
q 


fanecccasconsnnuces 
jLoad our sequent 
je» Pegister 

Get display type 
gj... isolate bits 
3..eand test if monochrome 
yPre-load Bx with color card seg 
sJugp if not monochrome 

j...else use mond segment 


yPush video sequent into stack 


yBp points at stack frame 
3Perfora the command 


yToss video segment 
fenessevesucussanees 


je Restore ; 
i. Registers ; 
Ho s 
i» : 
And return 
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LOC OBJ LENE SOURCE 

743 

744 7 

745 H 

746 : 

TAT 
pergatas 748 ParameterStruc 
0009 749 Alpha4@x25 
ee08 Ta 
8010 T5i AlphaG@xe5 
ed18 752 
8820 Ta8 Graphics 
8828 754 
30 TH Alphattono 
0238 736 
8042 737 Men4@x25 
a042 738 Men88x25 
0044 739 MenGraphics 
0046 768 
0048 761 NunCols 
Lt 762 ModeSets 


—_— 763 ParameterStruc 
-—- 764 ParaaDffStruc 


2302 765 
2001 766 
882 767 
768 
004 769 
6025 778 
2026 771 
0027 Tle 
—- 173 ParamOffStruc 
774 
715 
F@A4 716 


777 +1 $Nolist 
82 


7 
783 +1 $Eject 


ERELELEESLSEL EEE EEEAE EE ELAS EEE ELE 


* Mode Tables - Aligned with PC and Xt + 
HEHE EE 


Struc 
b 


b 
Db 
Db 
Db 
Db 
Db 

b 


Ends 


038H, @28H, @2DH, OAH, GIFH, @2EH, 19H, 1CH 
@02H, O87H, G2GH, 007H, BB2H, BBAH, G22H, COBH 
@7 1H, @5@H, @5AH, GAH, @1FH, @2EH, OL9H, O1CH 
Q@2H, 087H, BAGH, 827H, BUCH, BVO, 2OGH, BAGH 

,Q2BH, GDH, @OAH, O7FH, GOGH, BO4H, 72H 
B22H, OB1H, QOGH, 887H, GBGH, BBOH, BOOK, GORH 
@51H, @5@H, @52H, OOFH, @19H, @OEH, O19H, 8194 
Bach, @ADH, BOBH, @OCH, OOGH, BBBH, BH, BACH 


4896 
16284 
16384 


@28H, @28H, @59H, @5@H, @28H, 28H, O5GH, 50H 
@2CH, @28H, @2DH, @29H, G2AH, B2EH, Q1EH, @29H 


jOffset 
] ;0ffset 
16 ;O0ffset 
16 yOffset 
32 sOffset 
32 s0ffset 
3e yOffset 
48 yOffset 


in parameter structure for 
in paraweter structure for 
in parameter structure for 
in parameter structure for 
in parameter structure for 
in parameter structure for 
in parameter structure for 
in parameter structure for 


Table definition - done under $NoList 


OF GASH 


sAlign with PC and 
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mode @ 
mode i 
mode 2 
mode 3 
mode 4 
mode 5 
mode 6 
gode 7 


Xt 
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LOC OBJ LINE 

7B4 

785 

786 

787 
F184 788 
F104 B@FCOF 789 
F187 7681 798 
F189 C3 791 
F1@A 732 
F18A DRE4 793 
F1@C SABC 794 
F1GE 32°F 793 
F11@ CEFFA745F@ 796 
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SOURCE 
' JERE UHHH 
: * Command Dispatcher # 
H SEEEREEELESAEELESIALEEEEE 
CommandDispatch Proc Near 

Cup Ah, 15 

She ComInRange 

Ret 
CoalnRange: 

Shi th, 1 

Mov Bi, An 

Xor Bh, Bh 

JumpTable{Bx) 


Jmp 
CommandDispatch Endp 


797 
798 +1 $Eyect 
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Is command in range? 
feos Jump if it is 
2 e15e8 return 


sMultiply command by 2 
sPut in index register 
jeoeand extend to word 
jeesand jump to routine 
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LOC OBJ LINE 
799 
880 
801 
ae 
FiiS 883 
804 
805 
886 
F115 Aeeeaa E 887 
Fila BAB4@3 808 
FIIB 2430 899 
FLiD 3038 812 
FilF Bee! Bit 
Fi2i B37 Bie 
Fi23 7487 813 
Fié5 BASEBe 814 
Fie’ Beb4 815 
Fi2A FECA B16 
Fiet 817 
Fi2eC 89168000 E 618 
819 
620 
B21 
Fi3@ 8@Cee4 B22 
Fi33 EE B23 
Fi34 ablEeeee E 824 
825 
B26 
827 
828 
Fi38 iE 829 
F139 3308 
Fi3B 8EDe 831 
Fi3D C4s60000 E 832 
Fi4i iF 833 
834 
835 
636 
837 
Fie 3eFF 838 
Fi44 33 839 
Fig5 CESA9FFCFB 848 
F148 @3F3 41 
Fi4C B91G88 842 
843 
B44 
845 
F14F 846 
Fi4F 268A04 847 
Fide EBB2e5 848 
FisS FEC4 849 
F157 46 858 
Fi58 EeFS 851 
BSe 
853 
854 
FiSA BESEGO 855 
FiSD GEC3 856 
FiSF BFeged 857 
Fi62e £88785 §58 
Fi65 B9@e2d 859 
F168 BaGGsO 8b 
Fi6B 7208 861 
Fi6D 7583 62 
863 
864 
FigF B9GG868 865 
Fi72 866 
Five 82087 86 
F179 868 
Fi75 F3 86 
Fi76 AB 
872 
871 
87e 
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SOURCE 


SetMode 


SetModeJumpl : 


PumpModeLoop: 


SetModeClré: 
SetModeCiri: 


SetModeCir3: 
Rep 
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JAH EE EE 


+ Command Procedure - Set New Mode # 
SESEELEEGTEAA SESE EEE ESEEE SEES EEE SSE 


Proc Near 


yChange mode 


F Set ActiveCard Global Variable 


Mov Al, Byte Ptr EquipFlag 
Mov Dx, PortMono Index 

And Al, 081 188088 

Cup Al, 681100008 

Mov Al, MonoResMode 


Mov Bl,? 
Je SetNodeJ umpi 
Mov 


Bl, Bode 
Mov ry Low (PortColorIndex) 


Mov Act iveCard, Dx 


; Reset card to null mode 
Add D1,4 

Out Dx, Al 

Mov CrtMode, Bl 

‘: Point at 6845 parameters 
Assume DszIntSeqment 

Push = Ds 

Xor Ax, Ax 

Mov Ds, Ax 


Les Si, VidParansTraphdr 


S 
Assume Ds:BiosDatafrea 


gGet switches 

s2.pre-load with mono card 
yIsolate 

q.seand test switches 

s... (null mode command) 

*Get internal mode for sono 
jee. jump if monochrome 

yGet new mode into Bl 

y...e1s@ load color address 
jy.» modify null mode for color 


ySave base address in global 


jee. point at control register 
y...and setup null mode 
y5et mode 


sPoint ASMAG at int segment 
ySave Ds 

360 there 

y.. ourselves with data segment 
sPoint De:Si to parameters 
yRestore data hal 

jeesand tell ASM 


: Pump parameters into 6845 

Xor Bh, Bh ;Form index into table (Bl=mode) 
Push = Bx ySave Bx=crt mode 

Mov Bl, Offset TabletBx] jLoad the offset 

Add Si, Bx ta2-and point at right list 

Mov Cx, 16 yDo 16 bytes 

: Ah is 6845 index, initialized to zero from above 


Mov Al, £5:(5iJ 
Call oun 


Inc Si 

Loop  PumpHodeLoop 

A Clear the memory 
Rov Bx, VideoSeqaent 
Mov Es, Bx 

Mov Di,8 

Call = WhichMode 

Mov Cx, 192 


Jnz SetModeCiri 


Mov Cx, 2048 

Mov Ax, 000081 11280108000B 
Stose 

; Set Mode from Table 


yGet byte from table 

gee. send it 

;Increment 6845 index 
sIncrement memory pointer 
jeeeand loop till 16 done 


ySet segaent 

se2eE5 Points to video buffer 
ne pointer 

gWhich mode are we in? 
sMemory size on color card 
yClear for graphics 
eee set if graphics 
jx1eZ Set if monochrome 


jMemory 51ze on mono card 
sAlpha mode space & attrib=/7 
yRepeat and store data 
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LOC OBJ 


Fi77 abi6eeea 
FI7B 8@C2e4 


Fi7E 3B 

FI7F CE8AR7F4F@ 
Fig4 EE 

Fi8S A2e8e8 


FLIA9 (78680000706 
FLiAF 2EBRATECFE 
FiB4 A288 

F1B7 8@E3FE 

FIBA 2E8BS7E4F@ 
FIBF AS80828 

Fite C3 


mm 


LINE SOURCE 


887 Overscarntires: 


898 CursPosClr: 


989  SetMode 
910 +1 $Eject 
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Dx, ActiveCard yGet port address 

D1,4 j...and point at mode port 
Bx +Get CrtHode from stac 

Al, VidParamsPointer. ModeSets [Bx] ;Get mode from table 


Dx, Al Seseseeseserand output it 
CrtModeset, Al 


Fesesevseeseand Seg global 
Set overscan mode 


Dx sPoint at register 

Al, 881188803 yDefault value 

B1,6 7648x208 mode 
QverscanHires fee. jump if is 

Al, O@111111B 3...€18e set special mode 
CrtPalette, AL j...store it and 

Dx, Al jee.send it 

Init Some Globals 

Ax, Ax yGet a zero 

CrtStart, Ax y...5e¢ start address 
ActivePage, Al jeeeand active page 

Cx, sClear cursor positions 
Di, Offset CursorPosn  sPoint at them 

(DiJ, Ax :Clear one 

Di y...increment pointer 
CursPosClr j--eand loop 


CursorMode, 687H ;Cursor mode line 6-7 

Al, VidParamsPointer. NumCols(Bx] sInit CrtColumns from 

Crt Columns, Ax jessesnecesetaule 

Bl, 111111108 sMake mode even 

Ax VidParansPointer. Mem40x25[Bx1 yInit size 

CrtLength, Ax Joccccscccrsee f Vom table 
yReturn, init complete 
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LOC OBJ LINE SOURCE 

911 : JERE 

912 ; + Command Procedure - Set New Cursor Value # 

a : JAHBEHHEHEH HEHEHE EEE 

14 

Fit3 915 SetCursorType Proc Near ySet cursor type 
FiC3 SB4E@6 916 Kov Cx, CursCommand ;Get parameter 
FiC6 S906 0808 E 917 ov CursorMode, Cx yStore new global value 
FiCA B4eA 918 Nov Ah, 18 sAddress of 6845 Cursor spec. 
FICC Eder eS 919 Call = Load6845Double je..send it 
FICF C3 920 Ret je..and return 

St SetCursorType Endp 

923 : JAHBHHEGEHEHHE HEHEHE SE 

924 ; # Command Procedure ~ Position Cursor # 

925 : erect titiiiti tr iiiiititettittti itis! 

926 
FiD@ 927 SetCursorPos Proc Near yMove cursor to position 
FiD@ BASEBS 928 Hov Bl, DisplayPage yGet page parameter 
FiD3 D@E3 929 hl Bl, zaeeMultiply by 2 
FDS 3eFF 938 Xor Bh, Bh Clear the top 
FiD7 884608 931 Moy Ax, Set RowLol yGet new row and colusn 
FIDA 89870008 E 932 Boy CursorPosn{Bx), Ax j.-,and store it 
FIDE 381E0000 E 933 Cup Act ivePage, Bl yPage now on screen? 
FiE2 7583 934 Jne SetCursorReturn feo Jump if, not 
FiE4 £66385 935 Call — LoadCursor j.e.@lse load the cursor 
FIE7 936 SetCursorReturn: 
F1E7 C3 937 Re jeeto caller 

ay SetCursorPos Endp 

548 ; JAH a 

941 ; + Command Procedure - Return Cursor Position # 

942 ; JAEHEHEEE HEHEHE 

943 
FiEs 944 ReadCursorPos Proc Near sRead current cursor position 
FIE8 BASE@S 945 Moy Bl, DisplayPage Get page ee 
FiEB DES 946 Shi Bl,i jeaeMultiply by 2 
FIED 32FF 947 Xor Bh, Bh ;Clear the top 
FIEF SBa7eG8e E 948 Rov Ax, CursorPosn [Bx] yGet cursor position 
FIF3 894688 949 Rov ReadRowCol, Ax y..,and store it in stack frame 
FiF6 ALseee E 958 Mov Ax, CursorHode sGet cursor mode 
FiF9 894606 951 Mov ReturnCursHode, Ax f...and store it in stack frame 
FiFC C3 952 Ret yThen return 

953 ReadCursorPos  Endp 

954 +1 $Eject 
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LOC OBJ 


F219 B41@ 


Fe1B E83D05 


FeiE BALE@e 
Fe2e BACB 
Fe3i EBBRG4 


Fess 7325 


Fe36 BS2e8 
Feae F6F2 


Fe3A SADC 
Feac 32FF 


Fee) D3E3 


E 


E 


E 


LINE 
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SOURCE 


20 ne we 


Skew 


ReadLpPos 


LpPosJmpt: 


LpPosJupe: 


LpAlpha: 
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EREREEELEE HEELS EEE EEE EEE EEEERE 


# Return Light Pen Position # 
EREREEEEEEEEEE EST EEEEEEEE ESERIES 


Db 3, 3,545) 3, 3,4 

Proc yRead Light pen position 
Hov Dx, ActiveCard sPoint at 6845 

fdd D1,6 ye.eand the status register 
ov Labtatus,@ yReturned status = not pressed 
In Al, Dx ;Get status 

Test 1, 00000100B y.eeand test bit 

Jz Reset Trightn s1f not set, return and reset 
Test Al 1 s1f not trigger, return no reset 
Jnz LpbosJup! feue jump over return if trigger 
Ret je. return not triggered 
Hov Ah, 16 sFetch value from 6845 

Call Fetch684SDouble teasinto Cx 

Mov Bl, Cr¢Mode ;Load Bx with mode 

Mov Cl, Bl j..eand keep it, 

Xor Bh y..ethen 

Hov Bi, Skew(Bx] j...load it with skew value 
Sub Cx, Bx ;Subtract skew 

Jns LpbosJap2 ee if negative 

Xor Ax, Ax j.e.Don’t go past origin 
Call  WhichMode sWhich mode are we in? 

Inc LpAlpha jees jump if alpha mode 

H Graphics Light Pen 

Hoy Ch, 48 jDivide into 48 columns 
Div Dl fee per row 

; Al=@-99 rows = AN=8-39 coluans 

Mov Bl, Ah sReturn pixels in Bx 

Xor Bh, Bh yao Calculated as 8 

Mov Cl,3 feoo times 

Shl Bx, C1 3..-column value 

Mov Ch, Al yScan line in Ch 

Shl Ch, 1 ¥.. double for interlace 
Mov D1,Ah yChar coluan in D1 

Mov Dh, Al sChar row in Dh 

Shr Dhy1 sGet char row value in 

Shr Dh, i t.eerange (div by 4) 

' Adjust for Hi-Res 

Cap CrtMode, 6 yHi-Res? 

Ine peers fee. Jump if no and return 
Shl Di,t ;Colum # #2 

Shl Bx, ! sPixels # 2 

Jap Short LopReturnValues  § ;Return 

H Alpha Light Pen 

Div he Ptr CrtCol umns yDivide address by columns 
Xchg = A, Ah geeeDh = 

Mov Dx, Ax 22D] = colugns 

Mov Cl,3 yCalculate scan lines 

Sh Ah, C1 jee. from rows # § 

Hov Ch, Ah j.2,and return it in Ch 
Hov B1,Al sCalculate pixels 

Xor Bh, Bh jee. from rows # G 

Shi Bx, CL jeoeand return in Bx 


le 
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LOC OBJ 


FebF 
FOGF C&460301 
F273 895608 
F276 AS5E04 


F284 C3 


LINE 


SOURCE 


LpReturnValues: 


Reset TrigRtn: 


ReadLpPos 


1037 +1 $Eject 


DIC/PC BIOS Video Driver Vi.8 


Return with Values 


LpStatus, 1 


LpPixel, Bx 
LpRasterLine, Ch 


Dx, ActiveCard 
Xy7 
Dx, Al 
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ySignal trigger 
sStore Dx 
yStore Bx 
yStore Ch 


yClear Lp Flip Flop 
jy... before returnin 
yee. (data jnatievent) 
jeeeand return normally 


bel 
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LOC OBJ 


Fenda 
FeAl EBREO4 
Feng C3 


107 
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SOURCE 


25 we we 


ActivatePage 


ActivatePage 


1056 +1 $E ect 
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REREHEELEL ELE EEE EEEEES IEE ELE EEE EEE EE 


+ Command Procedure - Activate Page # 
REPELESLEEEESE SESE LEER SEL EL EELS SELES 


Proc erie ;Activate new page 

Mov NewPage Get the new page 

ov fet vePane, fl jee Store it a 

Xor yAh jeoeput it into Ax 

Push fix’ ;5ave for cursor poestcning 
Mov Bx, CrtLength iMultiply it by ¢ 

Mul Bx jeas length of a page 

Mov CrtStart, Ax ‘Store start addr of page 
Shr fx, 1 Get character only length 
Hoy Cx, Ax sPump it into 

Mov Ah, 12 feos 

Call Load6&84SDouble y...double register 12 
Pop Bx Restore page to Bx 

Call LoadCursor te. .and go load the cursor 
. Ret jee then return 

Endp 
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LOC OBJ 


Fee@® SBF 


Fee2 SA 
FeE3 2B5606 
Fee6 BiCeial 


F2EA BBIECRR2 
FeEE DIES 


FoF4 FGES 


FeF6 SB4Ees 
FoF9 8EC1 
FeFB BED9 


F2FD B87E@386 
F301 7485 


LINE 
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SOURCE 


os ewe 


Scroll 


Scroll 


Scrol1Alpha 


VerticalWait: 
VelaitLoop: 


NoScrol lWait: 


SerollConte: 
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ESSERE EREES HE EERE ELSES ES EEEEE ES EEE EE EE 


# Command Procedure - Scroll Up and Down # 
peeet ttt titi itr it itt i ite ti titi etsy 


Near 
WhichMode 
ScrollAl pha 
Scrol]1Graph 


3Scroll Down 

sGraphics or Alpha? 

jee jusp if alpha 
y..el5@ jump to graphics 


HHIHIHHHIHIHHHHHEHHEHE 


Common Alpha Scroll Procedure # 
AEH EEE EE SEE EE 


Near 


CrtHode, 2 
NoScrol iWait 
CrtMode, 3 
NoScrol lWait 


Dx, PortColorStatus 


Al, Dx 

Al, @00018805 
VWaitLoop 

Dx, PortColorHode 
Al, 001001015 
Dx, Al 


;Clear direction 
348 x 25? 

yJump if not 

580 x 25? 

sJuap if it isn’t 


yPoint at status port 


jGet status 

s...Wait for vertical retrace 
jLoop till retrace 

Turn off video 

j...while 

3...scrolling 


Calculate window start address 


Ax, Scrol lLower 
x 


Command, 7 
ScrollCont2 
Ax, Scrol lUpper 


Convert 

fx, CrtStart 
$i, Ax 
Di, Ax 


gGet lower right hand xy 
jeeeand save it 
Down? 


te. jump if down 
jee 2@lse start at upper left 


yConvert it to a linear address 
jeaeon Current page 


“sStore in source register 


s...and destination register 


Calculate # or rows and # of columns 


Dx 
Dx, Scrol lUpper 
Dx, @101H 


yRestore upper left 
sCalculate width and height 
je.eadding 1 to form a count 


Get Linear difference between rons 


Bx, CrtColumms 
Bx, 1 


i of columms 
+,.-double for attributes 


Calculate To / From Offset 


Ds 
| ideale 


sSave Ds 
sNusber of rows 
j.e difference between rows 


Load Source and Destination Segment Registers 


Ds:Nothing 
Cx, VideoSegment 


gAll ref. must be annonymous 
yGet the segment 

je destination segment 

ta. 50UrCe Segment 


Set sign of offsets based on direction 


Command, 6 
ScrollCont1 
Ax 

Bx 


3Up? 

gee Jump if up 

...e15e wake Ax negative 
z...and make Bx negative 
ySet direction 


8986/8087/8888 MACRO ASSEMBLER 


LOC ORY 
F398 


F388 BA4EGe 


F311 2A7692 
F314 

F314 326D 
F316 ACA 
F318 57 
F319 56 
F310 F3 
F3iB AS 
F3iC 5€ 
F31D 5F 
F31E O3F3 
F320 Q3FB 
F302 FECE 
F324 75EE 
F326 BATEO2 


LINE SOURCE 
1134 ScrollConti: 


-_ 
a" 
> 
= 

On eR OE Onn ne Oe ee we 


1152 MoveLoop: 


1157 Rep 


Hie Blankinly: 


1172 BlankBotLoop: 


1175 Rep 


1187 Scrol]Return: 


8 
1189 ScrollAlpha 
1198 +1 $Eject 
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AEH EEE 
# At this point: + 
+ 

* Dh = # of rows 

# Dl = # of cols 

# Ax = Linear to / from offset 

* Bx = Differences between rows 

# Si &£ Di = linear start address 


# Es & Ds = Video segment 
etre rer titrt ttt tt it treet ott t 


C1, §Scrol1NumRows 
Ci,Ci 


Si, Ax 
Dh, Scrol NumRows 


Mean 
Dh, Scrol iNumRows 


# 
% 
% 
% 
# 
5 2 
5 
* 


jNumber of rows 

joe affect flags 

yJump if blanking only 

Fix dif. between src and dest 
yee.Calculate rows to move 


yClear counter top 

jLoad # of columns to move 
ySave pointers 

t.. that will be incremented 
sHove the row 


yRestore pointers 
3...to original value 
yPoint at next row 
+.,.both source and destination 
se2eCount down 
y.2,and loop till all moved 
Load count of rows to blank 


Clear rons at bottom or top 


Ch, Ch 
Ah, Scrollattrib 
Al,’ ! 


C1,D1 
Di 


Di 
Di, Bx 
Dh 


BlankBotLoop 
Ds 


Ds:BiosDatafrea 
WhichFiode 
Scrol1Return 

Al, CrtModeSet 
Dx, PortColorMode 
Dx, Al 


;Clear counter top 
;5et the attribute 
fa..and a space 


3D] has # of coluans in block 
sSave pointer 
yClear row 


gRestore pointer 

j... Dump to next roe 
yDecrement count and 
4... loop till done 
yRestore Bios data segment 
j-o-and tell ASNGE 
Mono card? 

42. return if so 

yGet current mode 
j..eand restore it 
t...to re-enable video 


sand return 
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LOC OBJ LINE 
1191 

1192 

1193 

1194 

F34A 1195 
F34A FC 1196 
F34B 84608 1197 
F34E 58 1198 
F34F 80760387 1199 
7483 1288 

F355 SB4606 1281 
F356 1282 
F358 Eb2B04 1203 
F35B 8BF8 1204 
1205 

1286 

1287 

F35D 58 1208 
FSSE 2BS606 1289 
F361 81020181 1218 
F365 DEG teil 
F367 DEG 1212 
1213 

1214 

1215 

F369 BAS683 1216 
F36C B@3ERReRR6 E 1217 
F371 7489 1218 
F373 D@E2 1219 
F375 DIE? 1220 
F377 3087 1221 
F379 7581 ieee 
F37B 47 1223 
1224 

1225 

1226 

F37C 1227 
F37C 307 1228 
F37E 7584 1229 
F388 SiC 7FROS 1238 
F384 1231 
F384 BASEO2 1é3e 
F387 D@ES 1233 
F389 D@E3 1234 
1235 

1236 

1237 

F38B 33 1238 
F38C 2AF3 1239 
F3RE BQae 1248 
F39@ F6ES 1241 
1e42 

1243 

1244 

F392 BBBOIF 1245 
F395 B@7EQ306 1246 
F399 7486 1247 
F39B F7D8 1248 
F39D Bee? 1249 
F3A@ FD 125¢@ 
FSAi 1251 
1ea2 

1253 

F3A1 8BF7 1254 
F3A3 @2F@ 1255 
1256 

1237 

1238 

1209 

1268 

F3A5 568 126! 
F3A6 8AC8 1262 
F3A8 SB4ERO 1263 
F3AB BED9 1264 
F3AD 8EC1 {265 
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SOURCE 
; JHAHEHH HEHEHE 
;: # Common Graphics Scroll + 
F JAA 
ScrollGraph Proc — Near 
Cid yClear direction for scroll up 
Mov Ax, Scrol lLower yGet upper right hand corner xy 
Push = Ax sSave upper right hand corner 
Cap Command, 7 sSerol] Down? 
Je GraphDnl je. jump if yes : 
ov Ax, Scrol Upper j...else reload upper left 
GraphDni: 
Call = ConvertGraph sCalculate linear addr for HiRes 
Mov Di, Ax sThis is destination 
‘ Calculate Dh = # of rows, D) = # of columns in window 
Po Dx ;Dx = Upper left hand corner 
Su Dx, Scrol lUpper sCalculate offset 
Add Dx, G1@1H geesand make it a ci 
Shl Dh, 1 sIn graphics, 4 even field rows 
Shl Dh, 1 fees per char. row, so shift it 
H Adjust for medium resolution 
Mov Al, Command yGet command 
Cup —CrNode, 6 tIs it HiRes? (mode 6) 
Je HiresSkip Secs juap if so 
Shl ‘ sTwice as many bytes per column 
Shl Di,t y...0ffset correction for LoRes 
Cup Al,7 Down? 
Jne HiresSkip Fenn jump if not 
Inc i ..ebump to last byte 
: Adjust # of rows to scroll to even field scan lines 
HiresSkip: 
Cup Al,7 Down? 
dne DownSkipi ie re if not 
Add Di, 248 3Go to last row of dots if down 
DownSkip1: 
Mov Bl, Scrol] NumRows yGet character rons 
Shl Bl, i eoetimes 2 
$Shl Bl, 1 fecebimes 2 again 
; Calculate byte length offset from source to dest 
Push = Bx ySave num scan lines for blank 
Sub Dh, Bl sCalculate # scans to move 
Hov Al, 88 Calc by multiplying # scans 
Mul Bl y.oetimes 48 bytes per scan 
: Set sign of offsets based on direction 
ov Bx, 20@8H-80 yPre-load ‘UP’ row offset 
Cup Command, 6 Up? 
Je Scroll6rphi gee jump if up 
Neg Ax ;..-e@lse make Ax negative 
Mov Bx, 2888H+80 3Seroll down goes up in menory 
Std sSet direction 
Scroll6rphi: 


Set to / from offset 


; 
Kov Si, Di 
Add ‘Si, Ax 


Load Video Segments 


Pop fx 

Or 1,Al 

Mov Cx, VideoSequent 
Mov Ds, Cx 

Mov Es, Cx 


yGet destination and figure 
..:5i/Di diff. by offset 


Test if Seanad function only 


yGet # of scans to scroll 

s...affect Z. Blank only? —— 
;Load segment registers | 
gees With | 
qf... Video segment | 


886/8087/8088 MACRO ASSEMBLER 


LOC OBJ LINE 
F3AF 7428 1266 
F3B1 50 1267 
F3b2 ScED 1268 
1269 
1278 
F3B4 1271 
F3B4 32D 127 
F386 BACA 1273 
F3B8 56 1274 
F3B9 57 1275 
F3BA F3 1276 
F3BB A4 
F3BC SF 1277 
FaBD SE 1278 
FSBE B1Cheeee 1279 
Fate 8iC7eaee 1288 
F3C6 BATA 1281 
06 1282 
F309 3? 1283 
F3CA FS 1284 
F3CB A4 
F3CC SF 1285 
F3CD SE 1286 
F3CE ebF3 1287 
F3D@ 2BFB 1288 
Fade FECE 1289 
F304 75DE 1 
F3D6 56 1291 
F3D7 8AFQ 1292 
1293 
1294 
1295 
F309 1296 
F3D9 BAs6a5 1297 
FaDC se&D 1298 
1299 
1382 
1381 
F3DE 1382 
F3DE 8ACA 123 
F3E@ 57 1394 
F3E1 F3 1305 
F3Ee AR 
F3E3 SF 1306 
FSE4 G10 78820 1387 
F3E8 BACA i 
F3ER 97 1309 
F3EB F3 1318 
F3EC AA 
F3ED SF 1311 
F3EE eBFB 1312 
FSF FECE 1313 
Fare 7SEA 1314 
FaF4 C3 1315 
1316 
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SOURCE 
Jz GraphBlankinly jess jump if blanking only (-- 
Push = AK Save # of scans to scroll 
Xor Ch,Ch Clear length upper byte 
Move Loop 
MoveGraph: 
Xor Ch, Ch yClear counter top 
Mov C1,D1 sGet # of bytes (columns) 
Push = Si sSave pointers 
Push Di ...for future use 
Rep Kovsb yHove even row 
Pop Di yRestore pointers 
Pop Si feed 
Add Si, 2000H jee. Point them to 
Add Di, j...00d field 
Mov C1,D1 sGet # of bytes (columns) 
Push = Si sSave pointers 
Push Di xe. for future use 
Rep Movsb sMove odd ros 
Pop Di yRestore pointers 
Po Si $...and 2 rows moved 
Sul 51, Bx yBack to even field-i row 
Sub Di, Bx 3...for both pointers 
Dec Dh sDecresent count 
Jnz MoveGraph s2..and loop till moved 
Pop fix yRestore # of scans to scroll 
Mov Dh, Al sCount using Dh 
; Blank lines at bottom or top 
GraphBlankOnly: 
Mov Al, ScrollAttrib yGet the data 
Xor Ch, Ch yClear counter top 
i Clear Loop 
ClearGraphLoop: 
Moy C1, D1 yGet # of columns 
Push = Di 3Save pointer 
Rep Stosb yStore data on row in colusns 
Pop Di yRestore pointer 
Add Di, 2000H sPoint at odd field 
Mov C1,D1 yGet # of coluwms 
Push = Di sSave pointer again 
Rep Stosb yStore data on row in columns 
Po} Di yRestore pointer 
Su Di, Bx sPoint at next row to clear 
Dh yDecrement count of scans to do 
Jnz ClearGraphLoop g.eeand loop till clear 
Ret jeeethen return 


Scroll6raph Endp 


1317 +1 $Eyect 
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LOC OBJ LINE SOURCE 
1318 ; AHHH EE 
1319 . * Command Procedure - Read / Write Char. and/or Attrib # 
1320 ; SEEE EEE EE PERE EE AE SEE ESE EE EE EEE EEE EEE SEE EEE EERE 
1321 
F3F5 1322 ReadWrite Proc Near 
F3F5 EBF482 1323 Call  Which¥ode sWhich mode are we in? 
F3Fa 727@ ree Je ReadWriteGraph teesjuep if graphics 
ea ; Convert xy to linear 
F3FA BASE@S 1228 Rov Bl, DisplayPage yGet page number 
FFD 3eFF 1329 Xor Bh, Bh g.o.into Bx 
FFF 53 1338 Push = Bx yand save it 
F400 £81383 1331 Call: ConvertCursor sConvert cursor to linear 
F403 SBF 1332 Mov Di, Ax ;Save result in Di 
F485 58 1333 Pop Rx sRestore page # 
F486 F7208808 E 1334 Mul CrtLength yeoemultiply page x length 
F4QA O3F8 1335 Add Di, Ax z...and add in converted value 
F4QC 8BF7 od Hov $i,Di ;Read and write pointers 
ee ‘ Get port address 
FAQE BB1G0008 E 1348 Kov Dx, Act iveCard ;Get port address 
F4le A30ee6 ae Add Dx,6 j.e.and point at status reg. 
i 
1343 ; Save segments 
1344 
F415 1E 1345 Push = Ds ;Save data segment 
F416 SBSE@O 1346 Mov Bx, VideoSegment 4..9e¢ video segment 
F419 SEDB 1347 Mov Ds, Bx t...into data segment 
F41B BEC2 1348 Hov Es, Bx j.,,and extra seguent 
ee Assume Ds:Nothing ;He know nothing about segment 
i 4 Read / Write Split 
F4id 8A4603 1353 ov Al, Command yGet command 
Fae 3088 1354 Cap Al, 8 ;Command = Read? 
Fae? 7514 od Ine WriteChar t4..i1f not then jump 
1387 : Read Branch 
1358 
F424 ~ 1359 Hiait Read: 
Fae4 EC 1360 In Al, Dx yGet status 
F425 ABS1 1361 Test l,i js. horiz pulse? 
F427 TFB 1362 Jnz HWaitRead jen. Juap and wait for it if not 
F429 FA 1363 Cli sTight timing here 
F42A 1364 HWait Reade: 
F42A EC 1365 In Al, Dx ;Get status 
F4é2B Agi 1366 Test Al,i j...gore back hi? 
F4eD 74F5 1367 Jz HiaitRead j.seWait till it does 
F4er AD 1368 Lodsw jes read it quick 
F438 1F 1369 Pop Ds ;Restore Ds 
1378 Assume Ds:BiosDatafrea jeeeand tel] ASMBS 
F431 884602 1371 Kov Char, Al y..eStore char for return 
F434 866683 1372 Hov AttribOut, Ah eo othen store attrib 
F437 C3 1373 Ret j.e.and return 
1374 
1375 7 Write Branch 
1376 
F438 1377 WriteChar: 
F438 BASER? 1378 Hov Bl, Char jGet Char 
F43B BA7EG4 1379 Mov Bh, Attribin j.-2and attribute 
F43E BRAERS a Kov Cx, CharCount yRepeat count 
ee ; Char only or char/attrib write split 
F441 3CBA 1384 Cup Al, 18 yCommand = char only? 
F443 7412 ES Je CharOnly too. Junp if yes 
1387 ; Char and attrib branch 
1388 
F4a5 1389 Heaithritel: 
F445 EC 1398 In Al, Dx Get status 
F446 ABQ1 1391 Test Al,1 jes horiz pulse? 
F448 75FB 1392 Jnz HiaitWritel See. guep and wait for it if not 


8886/8087/8088 MACRO ASSEMBLER 


LOC OBJ LINE 
F44A FA 1393 
F448 1394 
F44B EC 139 
Fat ABEL 1396 
Fake 74FB 1397 
F450 QBC3 1398 
F452 AB 1399 
F453 EeFO 1488 
FaSo iF He 
F456 C3 1403 
1404 
1485 
1486 
FAS? 1487 
F457 1488 
F457 EC 1409 
F456 AGGL 1418 
F4SA 75FB 1411 
F4SC FA 1412 
F4SD 1413 
F45D EC 1414 
F45€ Abst 1415 
F46@ 74FB 1416 
F462 BAC 1417 
F464 AA 1418 
FaeS 47 1419 
F466 EckF 1428 
F468 1F 1421 
1422 
F469 C3 1423 
1424 
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SOURCE 
Cli 
HWaithrited: 
In 41, Dx 
Test l,i 
Jz HWaitWrite2 
Mov Ax, Bx 
Stosw 
Loop HWaitwWrite! 
Pop Ds 
Assume Ds:BiosDatafrea 
Ret 
i Char only branch 
CharDnly: 
HWaitWrites: 
In Al, Dx 
Test fal, 
Jnz HWaitWrite3 
Cli 
HelaitWrite4: 
In Al, Dx 
Test Al,i 
Jz HWaitWrite4 
Mov Al, Bl 
Stosb 
Inc Di 
Loop HWaitkrite3 
Pop Ds 
oe Ds:BiosDataArea 
e 
Readkrite Endp 


1425 +1 $Eject 
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yTight timing here 


jGet status 

t...gone back hi? 
ta.eWait till it does 
jGet char and attribute 
shrite char and attrib 
3.2.00 for repeat count 
yRestore Ds 

t...and tell ASMBS 
t.eeand return 


yGet status 

gee ehoriz pulse? 

TE eg and wait for it if not 
slight timing here 


jGet status 

jee. gone back hi? 
feosWait £11] it does 
yGet char back 

yHrite char only 
y22.Skip attribute 
j..eand loop 

jRestore Ds 

geeeand tell ASMB6 
t..-and return 


8086/8087/8808 MACRO ASSEMBLER 


LOC OBJ LINE 


F46A 

F4EA BO7ER388 
Fa6E 7583 
F478 EQBBGO 


F473 


F473 A1BBO2 E 
F476 E8@Da3 
F479 BBFa 


F47B 1E 
F47C BAAGRe 
Fa7F 34 
F481 @ACe 
F483 7887 


F485 CCA 
F487 BEGOOO E 
F48A EBAC 


F48C 

F4aC 247F 
F4BE 33D8 1463 
F4S@ SEDB 


F492 C3368008 E 
F496 8CDA 
F498 


F498 iF 


F499 Bigs 
F498 D3E8 
F49D O2F® 


F49F OB4600 
F4R2 BEC8 


F4h4 SB4EO6 


F4A7 BOZEGRROR5 a 
F4AC 1E 
FaAD BEDA 


FaAF 7451 


F4Bi DIE? 
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SOURCE 
' THEBES P 
: # Read Write Graphics * 
: JHHBEEHEHEHHEEHEGHEEEEE 
ReadriteGraph Proc Near 
Cap Command, § Read? 
Jne Hritegraph feee jump if not and write 
Jup ReadGra 3...e15e read 
ReadWriteGraph Endp 
; HEHEHE 
. # Write Graphics #* 
} JAHHEHBEEHEE HEE 
WriteGraph Proc = Near 
; Convert Cursor position to Linear 
Mov fx, CursorPosn[2] sGet pae @ cursor posn 
Call  ConvertGraph Convert to linear HiRes 
ov Di, Ax jeu. and use as destination 
H Detersine image pointer 
Push = Ds ySave data segment 
Nov Al, Char yGet char 
Xor Ah, Ah ye.into "ax 
or Al, Al ;Affect flags 
Js User Iuages t..eand jugp if upper bit 
; Row images 
Mov Dx, Cs yRom images in code sequent 
Mov Si, Offset VideoSraphicsPointer gimages = Dx:Si 
Jap Short RW6Cont 1 sJump over 
Userlwages: 
And AL, QU1UL141B Strip upper bit, conv. to word 
Xor Bry Bs jens we at int oer 
Mov jeeato find pointer 
Assume De Insepeen he user images 
Lds Si, VideobraphicsTrapAddr j;User images at Ds:Si 
Mov Dx, Ds jeoeeemake it DxsSi 
RWGCont 1: 
Assume Ds:BiosDatafrea yTell ASMAG data eae 
Pop Ds iRestore our segaen 
q Figure offset into table 
Mov Ci,3 yMultiply by 8 rows of 
Shi xy C1 }...dots per page 
Add Si, Ax sAdd in image pointer 
H Load Video Segment Register 
Hov Ax, VideoSequent yGet sequent pointer 
Bov Es, Ax hae and load it 
j Load character count and toggle bit 
Mov Cx, CharCount yCharacter count 
: Mode Split and Load Segment register 
Cup CrtMode,6 yHiRes? 
Push Ds iSave data sequent 
Mov Ds, Dx sLoad Data Segment 
Assume Ds: Nothing We know nothink 
e@ HiReswWrite jean guap if yes 
; Mediu Resolution Write 
Shi Di,1 yMed res is 2 bytes per char 
H Expand color into Ax 


6086/8087/8885 MACRO ASSEMBLER 


LOC OBJ LINE 
F4B3 BA4684 1501 
F4BE 258308 132 
F4B9 BBQ555 1383 
F4BC F7E3 1384 
F4BE GBDO 1585 
F4C@ BASER4 1586 
1387 

1588 

1589 

1518 

1511 

i512 

1313 

1314 

115 

1916 

1517 

1518 

F4C3 1519 
F4C3 B78 1528 
FaC3 37 iSet 
F4C6 56 i322 
i323 

1324 

1525 

Fac? 1526 
FaC7 AC 13¢7 
1328 

1529 

1538 

F4C8 51 1531 
F4C9 53 Sze 
F4aCA 33DB 1333 
FAC B9GRRS 1334 
F4CF 1335 
F4CF DREB 1336 
F4Di DIDB 1337 
F4D3 DIFB 1338 
F4D5 EOFS 1539 
F407 8BC3 1548 
F409 SB M41 
F4DA 59 1342 
F&DB e3Ce 1343 
FADD B6E8 1544 
F4DF @ADB 1545 
F4E1 7983 1346 
F4E3 263305 1347 
6 1548 
F4EG 268985 1349 
F4ED G1F 70020 ime 
F4ED F7C7oR20 135i 
FaF1 7382 i55e 
FAF3 B3C758 {593 
FaFG 1594 
FaFG FECF 1535 
F4F8 7oCcD 1536 
F4FA SE 19587 
F4FB SF 1358 
FAFC 47 1359 
F4FD 47 1368 
FAFE Eec3 136i 
F5@@ iF i362 
1363 

Fo@1 C3 1364 
1565 

1366 

1367 

Foee 1568 
Fa@2 BASEO4 1569 
FOS BARCE 1378 
13571 

1572 

1573 

FO@8 B788 1574 
37 1379 
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SOURCE 


Repeatitr Hed: 


HedfeshrLoop: 


Boublelip: 


MedXorSkip: 


OddFieldWr¥ed: 


HiResWrite: 


RepeatWrLoop: 


Al, AttribIn 

Ax, O@8989000000001 1B 

hoe 
x 

Dx, Ax 

Bl, AttribIn 


Ax = not used 
not used 
attribute 


=F 
eo ont 
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3Get color 

z...and isolate 

yMagic multiplier 
‘Replicate bits across Ax 
jes.and eee it in Dx 
sGet the color attribute 


character count 


Dx = expanded attribute 
Es:Di = screen pointer 
Ds:Si = image pointer 


Write (Cx) Characters 


Hove dots 


Double all bits 


Ax, Ess (Di 
Es: (Dil, Ax 
Di, 26H 
Di, 2080H 


OddF ieldbirted 
Di,8@ 


Bh 
MedReskrLoop 
i 


Ds:BiosDatafrea 
Hi Resolution Write 


Bl, Attribin 
Dx, 288@H 


Write (Cx) Characters 
Bh, 8 
Di 


Write 4 odd/even pairs of rows 
;Save pointers 
j...for next write 


;Get even row of dots [51] 


ySave Cx 

Save Bx (room to work) 
yClear accumulator 

38 bits to doubie 


sShift dots Rt into carry bit 
sShift accum Rt from a 
sShift accua rt and ‘ae it 15 
sLoop till 8 bits doubled 
sGet shift accum back to Ax 
sRestore pushed registers 
3...from above 

‘Convert color 

3Hi byte lo byte 

j...15 attrib upper bit set? 
fous Jump if it is 

;Xor source with destination 


yPut the row of dots [Dil 
Toggle odd/even field bit 
;Even field? 

foeejump if not 

jincrement to next row 


yDecresent count 

...and loop till {1 char done 
sRestore pointers 

je. for next write 

soe to next video position 
or repeat loop 

ee till Cx written 
sRestore data segaent 

yTel] ASM86 data sequent 

je. then return 


sGet the color attribute 
*Odd even bit 


sWrite 4 odd/even pairs of rows 
;Save pointers 


22 
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LOC OBY LINE 
FOOB 56 1576 
1377 

1578 

1579 

Foec 1580 
FSOC AC 1581 
FOOD @ADB 1582 
FOOF 7983 1583 
FO11 263285 1384 
14 1585 
FO14 268805 1586 
FO17 33FA 1587 
F519 85FA 15388 
FOIB 7583 1589 
FSD B3C752 1598 
@ 1991 
F520 FECF 1392 
Fo2e 7568 1393 
Foe4 SE 15394 
F525 SF 1595 
Foe 47 15396 
Foe7 EeDF 1597 
F529 iF 1598 
1599 

FSeA C3 1608 


DTC/PC BIOS Video Driver V1.0 


SOURCE 

Push = Si 

i Move dots 
HiResWrLeop: 

Lodsb 

Or Bi, Bl 

Ins peep 

Xor Al,Ess{Dil 
XorSkip: 

Rov Es:(DiJ,Al 

Xor Di, Dx 

Test Di, Dx 

Jnz OddFieldlly 

Add Di, 6a 
OddFieldWr: 

Bh 

Jnz HiResWrLoop 

Pap $i 

Pop Di 

Inc Di 

Loop RepeatlrLoop 

Pop Ds 

Assume Ds:BiosDatafrea 

Ret 


WriteGraph Endp 


1 
1602 +1 $Eyect 
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jeuefor next write 


Bet even row of dots [Si] 
jeeeis attrib upper bit set? 
jeoe Jump if it is 

yXor source with destination 


yPut the row of dots [Dil 
yToggle odd/even field bit 
yEven field? 

jee. Jump if not 

sIncrement to next row 


sDecrement count 

yo.eand loop till i char done 
sRestore pointers 

..for next write 

sBump to next video position 
jLoop till Cx written 
yRestore data segment 

sTell ASM86 data segment 
jeeethen return 


eg 


8086/8087/8888 MACRO ASSEMBLER 


LOC OBJ LINE 
1683 

1604 

1685 

1686 

FSeB 1687 
FSB FC 1688 
FS2C Al1Qe8 E 1609 
FSeF £85482 1618 
F532 BBFe@ 1611 
F534 83EC88 1612 
F537 BBFC 1613 
1614 

1615 

1616 

F539 BASEeROee E 1617 
1618 

1619 

1620 

FOSE BB46ee 1621 
1 1E 1622 
Fo42 57 1623 
F543 SEDs 1624 
1625 

1626 

1627 

1628 

F459 7431 1629 
1638 

1631 

1632 

1633 

1634 

F547 Bea 1635 
F549 DIE6 1636 
FO4B BEGO2R 1637 
1638 

FORE 8824 1639 
86E8 1648 
Foo2 Bo@OCe 1641 
F095 eee 1642 
7 1643 
FSa7 85C1 1644 
F309 F8 1645 
FSGA 7481 1646 
FSC F9 1647 
FID 1648 
FoaD Ded2 1649 
FOOF DIE9 1638 
F561 DIES 1651 
FO63 73Fe2 1652 
1653 

1654 

1655 

F565 368815 1656 
Fa68 47 1657 
1658 

1659 

1662 

F269 33F3 1661 
B Q5F3 1662 
FO6D 7583 1663 
FOGF 1664 
Fale {665 
F572 FECE 1666 
Fo74 Tada 1667 
FO76 EBL7 1668 
1669 

1678 

1671 

F578 1672 
1673 

F578 BES4 1674 
FO7A 1675 
FOTA BRe4 1676 
1677 
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SOURCE 


ne ee 


ReadGraph 


MedReadLoop: 


MedReadLpe: 


ShiftBitsIn: 


OddFieldRa: 


HiResRead: 


HiReadLoop: 
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JHE 
* Read Graphics # 
SHH EEE 
Proc Near 
Cld ;Positive direction 
Moy Ax, CursorPosn[@} Get page @ cursor posn 
Call ConvertGraph sConvert to linear HiRes 
ov $i, Ax fessand use as source 
Sub Sp,8 tMake roos in stack for area 
Rov Di, Sp y...Di is index pointer 
} Split for Med / Hi resolution 
Cup CrtMode, 6 sHiRes? 
H Load segment pointer before branching 
Mov Ax, VideoSequent yVideo segment pointer 
Push = Ds jSave data segment register 
Push = Di jSave pointer to frame 
Mov Ds, Ax jLoad it 
Assume Ds:Nothing geee8e know nothing 
H Branch 
Je HiResRead jess Jump if it is 
: Medium Resolution Read 
: Move data to stack frame 
Mov Dh, 4 38 lines of dots 
Shl Si,1 ye bytes per char 
Mov Bx, 2000H ySetup register with toggle bit 
Mov Ax, ($i) yBet a row of dots from video 
Xchg = Ath, All jeeeHi byte Lo byte correct 
ov Cx, 11@egaReR2900008 Start testing for bkygnd 
Mov D1,@ 3..eClear accumulator 
Test  Ax,Cx yAny bits set in pair? 
Cie sPrepare for no answer 
Jz ShiftBitsIn jee. jump if no 
Ste yo. yes, set bit to shift in 
Rel Di,t yShift bit into accuaulator 
Shr Cx, 1 yMove mask 
Shr Cx,1 t.e0t0 the next bit 
Jnec HedReadLpe sLoop till mask clears reg. 
‘ Store character under stack frame 
Mov $s: (Dil, Di yStore the char 
Inc Di f... Dump pointer 
‘. Incresent to next row 
Xor Si, Bx yToggle even/odd field bit 
Test  Si,Bx taeeand test if we need to 
Inz OddFieldRd je.eadd 82 
Add $i, 88 qIncresent to next row 
Dec Dh yDecresent count 
Jnz MedReadLoop ye..and loop till done 
Jnp Short ImageMatch 360 match it up 
: Hi Resolution Read 
Mov Dh, 4 34 lines of dots 
Vv Ah, [Si] ;Bet odd row of dots from video 


8086/8047/8088 MACRO ASSEMBLER 


LOC OBJ 


FOIC 368825 
FO7F 47 


F58@ SAA4BOCE 


F584 368825 
FS87 47 


F588 830550 
FoeB FECE 
Fa) 7568 


FOB3 @AC8 
FOBS 7418 


FOB7 33DB 
FOB9 SEDB 


FOBB C43E0@80 
FSC7 

FOC7 

FSC7 884692 


FOCA 1F 
FSCH 830408 
FOCE C3 


LINE SOURCE 


99 
1788 ImageMatch: 


1711 ImageTry2: 
OF ImageLoop: 


1717 Repe 


1742 NoMatch: 
1743 MatchFound: 


175@ ReadGraph 
1751 +1 $Eject 


DTC/PC BIOS Video Driver V1.2 
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Store character under stack frame 


lan yStore the char 
i 


..-Dump pointer 
Incresent to next row 
Ah, [Si] (2000H) ;Get odd row of dots from video 
Store character under stack frame 


" oyeeail ;Store the char 
i 


3...Dusp pointer 
Increment to next row 
$i, 88 sIncrement to next row 


sDecrement count 


HiReadLoop jeeeand loop till done 


Character in stack frase, match with images 


Dx, Cs ;Ros images in code segment 
Di, Offset VideoGraphicsPointer jImages = Dx:Di 


Es, Dx foesenees Mages = Es:Di 

Dx, Ss ‘Point at stack segment 

Ds, Dx y...and let data seg. ref. it 
$i sRestore pointer to frame 


Pointers set, compare with igages 


Al,@ sASCII Value 
Dx, 128 yThere are 128 of them 
$i sSave pointers 
Di j.».while comparing 
x, 8 eaeare 8 bytes 

jee fOr a match 
2 yRestore pointers 
i eee 
MatchFound iJump if match found 
Al sIncrement ASCII 


Di,8 3Try next image 
Dx tExhausted? 
IsageLoop jooe Jump if not 
Tmage not in ROM images, try user 


41,41 yRegister wrap? 
NoMatch tees Jump if so and end 


Point at user images 
Bx, Bx js. point at int segment 


Ds, Bx 3...¢0 find pointer 
Ds: IntSequent jeeeto user images 


Di,VideobraphicsTrapAddr j;User images at Es:Di 
Bx, Es jlest if Es:Di = @ 

Bx, Di jeeelf 50, 10 ueanee there 
Noatch jeee jump 1f no match 
ImageTry2 sJump and re-try images 
Char, Al sReturn in Char 
Ds:BiosDataArea yTell ASMB6 data sequent 
Ds yRestore our segmen 


Sp, 4 jToss the temp area 
j..eand return 


20 
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LOC OBJ LINE SQURCE 
1752 ; JAH 
1753 F + Command Procedure - Set Color # 
1754 ' JAA EHH EE 
1735 
F 1756 SetColor Proc = Near ySet color and background 
FSCF 88160000 1737 Hov Dx, Act iveCard yPoint at card 
FSD 830205 1758 Add Dx,5 se..and then to palette 
Fads Aeeeee 1759 Mov Al, CrtPalette sGet the palette as it stands 
FSD9 BAB685 1762 Mov fh, Colorld 
FODC @AE4 1761 Or Ah, Ah 4...98t background? 
FODE 8A6684 1762 Mov fh, ColorValue sPre-load color value 
FOEL 7389 ee Inz Fore gee jump if not 
Hi : Set Background 
FOES 24E8 1767 And Al, 111088008 ;Strip and merge values 
Foes BGE41F 1768 And Ah, @B11111B z...0ld with 
FSEB BAC4 1769 Or Al, Ab fo2. TW 
F5EA EBQ9 ay Jap Short SetPalAndReturn j...and return 
1772 ; Set Foreground 
C 1773 SetFore: 
FoEC 24DF 1774 And Al, 110111118 yPalette = Grn Red Yellow 
FOEE F6C481 1775 Test Ah,l gaoeRight? 
FFL 7492 1776 Jz‘ SetPalAndReturn ... Jump if right 
FOF3 C28 By Or Al, #8180800B ;Palette = Blue Cyan Magenta 
1779 ; Set palette and return 
178@ 
1781 SetPalfndReturn: 
FSFS Az8aee 178e Vv CrtPalette, Al ySet in raa and 
FoF EE 1783 Out Dx, Al j...send to hardware 
FaF9 C3 1784 Ret je. and return 
85 SetColor Endp 


17 
1786 +1 $Eyect 
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LOC OBJ LINE SOURCE 
1787 } AREA EEE 
1788 : # Command Procedure - Write Dot + 
1789 ; AHHH Ee 
1798 
FOFA 1791 WriteDot Proc Near yHrite a dot 
FSFA BB4600 1792 Nov Ax, VideoSegment sGet the sequent value 
FOFD 8EL@ 1793 Mov Es, Ax jes.into segment register 
FOFF 8B36@8 1794 Hov Dx, Dot Row yGet Row 
F6@2 8B4E06 1795 Mov Cx, Dot Col s...and column 
F6@5 £81901 1796 Call = ConvertDot sGet info about dot position 
F6QB 7585 rd Inz WrbotLoRes je.eand jump if medium res 
1799 : Write Dot Hi Res 
1880 
82 1881 Mov Al, Dot yet the dot 
F6@D BADS 1882 Mov A jeseand keep a Copy 
FeGF 2481 1883 And Al, 08000018 sOnly one bit in HiRes 
Fétt DOC 1804 Ror Al,1 y..emove it to upper bit 
F613 Ba7F 1885 Mov Ah, @1111111B jAlso shift mask bit same 
F615 EB1G90 ae Jup WrDotCont2 3..-Continue below 
1897 
1888 H Write Dot Lo Res 
Fei 1869 WrDotLoRes: 
Fei8 Dei 1812 $hl Cl,! sShifting 2 bits for lo res 
F61A BA4682 1811 Rov Al, Dot yGet the dot 
F61D BADS 1812 Mov Bl, Al je.eand keep a copy 
F6LF 2403 1813 And Al, 800800118 iGnly one bit in HiRes 
F621 DOCS 1814 Ror Al, y...M0ve it to upper bit 
Fé23 DOCs 1815 Ror Al,t jee.move it to upper bit 
F625 B43 me Mov Ah, @Bi111118 sAlso shift mask bit same 
18t 
1818 ; Common 
1819 
F627 1828 WrDot Conte: 
Fée7 Dect 18et Ror Ah, Cl j.. amount for anding 
F629 DeE8 1822 Shr Al, Cl j...0ut the old data 
F62B 268080 1823 Mov Cl,€s:{5i] yGet existing byte 
F62E @ADB 1824 Or Bl, Bl sAffect flags with upper bit 
F638 7904 1825 dns wrDotNoXor jeeejuap if not Xor 
F632 3208 1826 Xor C1,Al j...eise XOR new with old 
F634 ERO 1627 Jap Short XorDot j-.-and store it 
F636 1828 WrDotNoXor: 
F636 22CC 1829 And C1, Ah ;Strip 
F638 OAC 1830 Or C1, Al t.eeand or in new bits 
F&3A 1831 XorDot: 
F63A 26860 1832 Mov Es:[$i],Cl yStore new dot 
F63D C3 1833 : Ret jeeeand return 
B3 WriteDot Endp 


1834 
1835 +1 $Eyect 
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LOC OBJ LINE SOURCE 

1836 ; JHEHEHHEHEEHEHE EE 

1837 ; * Command Procedure - Read Dot # 

1838 : JHA EEE EES SESE SESS 

1839 
FG3E 1848 ReadDot Prot = ss Near ;Read a dot 
FG3E aBsbee 184i Mov Ax, VideoSequent Get the sequent value 
F641 SEC? 1842 Kov Es, Ax s...,into segment register 
F643 SB5608 1843 Rov Dx, Dot Row yGet Row 
F646 BBAEOS 1844 Foy Cx, Dot Col s...and colusm 
F649 EBNS88 1845 Call  ConvertDot sGet info about dot position 
FOAC @6b8AR4 1846 Moy Al, Es:(Si] Get byte containing dot 
Fe4F 7588 Ha Jnz RdDotLoRes tee-and jump if sedium res 

1849 : Read dot Hi Res 

1858 
F651 D2ee 1851 Sh Al,Cl yShift dot to upper bit 
Fos3 Dece 1852 Rol Al,1 y...then to lower bit 
F655 2481 1853 And Al, #80800218 sStrip other dots 
F657 EB@A Hes Jup Short RdDotReturn t..eand return 

1856 : Read dot Med Res 

1857 
F659 1858 RdDotLoRes: 
F659 DEL 1859 Shl C1,1 sShifting 2 dots at once 
F65B DeEe 1868 Shl Al, Cl ;Shift dots to upper bit 
F6SD Deca 1861 Rol Al,1 za.ethen to lower bit 
F6SF D@Cce 1862 Rol Al,1 s...then to lower bit 
F661 2483 1863 And Al, 988808118 :Strip other dots 
F663 1864 RdDot Return: 
F663 884692 1865 ov Dot, Al sReturn in stack frame 
Fo66 C3 1866 Ret jeseand return 

1857 ReadDot Endp 


1868 +1 $Eject 
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LOC OBJ LINE SOURCE 
1869 F AEH EEE 
1878 H * Command Procedure - Write TTY # 
1871 ; rerttttt ttt tttt ti tiiiiiiii ee oot 
1872 
F657 1873 WriteTTY Proc Near jWrite glass tty 
FBG7 B42 1874 Hoy Ah, VidCadRdCurPos y...Recurse and read 
F669 BASESOeD E 1875 Mov Bh, Act ivePage ge..cursor position 
F6SD CD18 1876 Int TrapVideo y...0f current screen 
F6GF SA46a¢ Ba Mov Al, Char sGet the char to write 
1879 : Test special char 
1889 ; 
F672 3C8 1881 Cup Al, Asci iBackspace sBackspace? 
F674 7422 1882 Je indler geo. Jump if yes 
F676 3C8A 1883 Cap Al, AsciiLinefeed sLine feed? 
F678 7A3h 1884 Je LFHlandler jan, yup if yes 
F67A 3087 1885 Cup Al, AsciiBell Bel]? 
F67C 7423 1886 Je Bel lHandler jerajua if yes 
F67E 3CaD 1887 Cup Al, AsciiCarriage ;Carriage Return 
F6B@ 7425 1888 Je CRHandler tee. Jump if yes 
He ; Must be printable char 
F682 SASE@4 1892 Mov Bl, TTYForeground yGet fore. col. incase graphics 
F685 B4@A 1893 Mov Ah, VidCaddrCurCh sHrite at cursor 
F687 B981e8 1894 Mov Cx, 1 s.2. length of t 
F6GA CD18 ae Int TrapVideo yRecurse to save stack frame 
1897 ; Bump Cursor in Dh Dl 
1898 
Foac FEC 1899 Inc Dh sColuun + 1 
F6GE 3A1GO800 E 1988 Cup Di, Byte Ptr CrtColums ;...overflow? 
F692 7315 1981 Jnz SetCursAndRet urn teoe Jump if not 
F694 3eD2 19@2 Xor D1, Di sClear row count 
F696 EBLG6 rn Jup Short LFHandler j-..and go do line feed 
1995 H Special char handlers 
1986 
1987 ; Backspace 
1908 
F698 1989 BSHandler: 
F698 BeFAGD 1918 Cup D1,8 sLeft margin? 
FESR 740C 1911 Je  SetCursfindReturn ...if so, do nothing 
F69D FECA 1912 Dec Od j...else backup 
F69F EB@A or Jap Short SetCursAndReturn;...and return 
1915 : Bel} 
1916 
FEAL 1917 BellHandler: 
F6Al B3te 1918 Mov Bl,2 ;Call external beep routine 
FGA Eaoeae E 1919 Call Beep Feaed 
FonG C3 1928 Ret yee return 
1921 
1922 : Carriage Return 
1923 
F6A7 1924 CRHandler: 
FGA7 Beee a Mov D1,@ sColuan @ 
1927 H Set cursor and return 
1928 
F6A 1929 SetCursAndReturn: 
F6A9 Ba@2 1938 Mov Ah, VidCadCurPos ySet cursor 
F6AB CD18 1931 Int TrapVideo gee Tecursing 
F6AD C3 1932 Ret je..and return 
1933 
1934 : Line Feed 
1935 
FOAE 1936 LFHandler: 
FOAE BOFE18 1937 Cup Dh, 24 jLast line? 
FEBI 7404 1938 Je‘ TT¥Seroll tees Juup and scroll if so 
F6B3 FEC6 1939 Inc Dh 3-.-@lse go to next line 
F6BS 75F2 1948 Jnz SetCursAndRet urn sae Jump if not and return 
1941 
1942 ‘: Position cursor and read attribute 
F6B7 1943 TTYScrolls 
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LOC OB LINE SOURCE 
F6B7 B4ee 1944 Mov Ah, VidCadCurPos ySet cursor 
F6B9 CDié ae Int TrapVideo ye. Pecursing 

1947 ; Mode Split 

1948 
FGBB E8cE@@ 1949 Call  WhichMode yWhich mode are we in? 
F6BE B78 1958 Kov Bh, @ yPre-load for graphics 
F6C@ 7206 1951 Je TYGraphics foo. juap if graphics 
F6C2 B49 1952 Mov fh, VidCadRdCurChAt yo. -@lse read attrib 
F6C4 CD18 1993 Int TrapVideo feeoto use during scroll 
F6C6 BAFC 1954 Mov Bh, yScroll requires in Bh 
F6CS 1955 TTYGraphics: 
F6C8 B426 1956 Mov Ah, VidCadScrol 1Up Scroll up command 
FECA B@Ot 1957 Hov Al, j...one line 
FECC 3309 1958 Xor Cx, Cx sUpper left = @ 
F6CE B6i8 1959 Mov Dh, 24 sLower limit = line 24 
F6D@ BAL 68080 E 1968 Mov D1, Byte Ptr CrtColuums Right pe = Column 
F6D4 FECA 1961 Dec Dl jee G8 or 48 
F6D6 CDIé 1962 Int TrapVideo yDo scroll 
F6D8 C3 1963 Ret ye.eand return 

1964 WriteTTY Endp 

1965 +1 $Eject 


8086/8087/8088 MACRO ASSEMBLER 


LOC OBJ 


FOFC 58 
FoFD C3 


LINE 


DIC/PC BIGS Video Driver Vi.@ 


ae an ee 


VideoState 


VideoState 


ne ee th oe ee Oe ee 


Which#ode 


WhichReturn: 


WhichMode 
$Eject 
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SHEETS 


* Local Procedures # 
AHHH EEE 


EXRESELEEEEEESE EES EES ESEE EEE 


* Return Current Video State + 
JAA EE EEE EEEESE 


Proc ;Return current video state 
v hl Byte Ptr CrtColuams Plug columns 

Mov Columns, Al teaeinto return frame 

Mov Al, crtiode jPlug Bode 

Mov Mode, Al j.22into return frame 

Mov Al, ActivePage ;Plug page 

Mov DisplayPage, Al f...1nto return frame 

Ret .2,and return 

Endp 

JAE 

# Which Mode Are We In # 

# Qn return: # 

# (C= 86 for Alpha # 

# C=1 for Graphics +* 

* 12 = 8 for Color Card # 

* 2= 4 for Mono Card + 

AESCHEHEEHEHEE EEE 

Proc = Near 

Push = Ax ySave Ax 

Bov Al, CrtMode Bet the gode 

Cup Al,7 jMonochrome? 

Je WhichReturn ;Carry = @, Z = 1 

Cap Al,4 ;Graphics? 

Cac free rry = 8, 2 =8 

Inc WhichReturn juss ump if alpha on color board 

Sbb Al, Al 3.,.Larry = 1, 2 = 6 

Stc je. for graphics on color card 

fa Ax sRestore Ax 

Re sReturn 

Endp 


at 


8046/8087/8088 MACRO ASSEMBLER 


LOC OBJ 


FOFE 


FOFE BACS 
F700 E8049 
F7@3 FEC4 
F7@5 BAC1 


F788 BB1G9ae0 E 
ABCs 


F716 

F716 3oFF 

F718 D1E3 

F7ifA BBa7eee8 E 
FTIE EBS59@ 


LINE SOURCE 
2088 

2009 4 

2018 4 

2011 ‘ 

2012 


ebig Load684SDouble 


? 
i 
a 
5] 
J 
q 


2824 Load6845 


2034 Load6845 
2235 Load6845Double 


2038 ; 

2035 ; 

2848 

284i ConvertCursor 
ee4e 

2643 

2844 

2045 

2AE ConvertCursor 
2047 +1 Eject 
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eet retrettesrterttrtiirclrrectirtererticrcred 
Load Crt Controller with Word Parameter # 

Ah = Index Cx = Word ¥ 
sr siiadteuestbhieass eltennes tEE: 


Prec Near 

Mov Al, Ch = git byte 

Call = Load6845 

Ine Ah ‘Ine to next byte 

Rov Al,€1 fs Low Byte and fall through 


JHE EE 
* Load Crt Controller with ; Parameter : 
# Ah = Index (Cx = 

miinraitduanae 


Proc = Near" 

Push = Dx ySave Dx 

Kov Dx, Act iveCard et port address 

Xchg = A, Ath esand send index from Ah 
Dut Dx, Al ie to point 6845 at register 
Xchg = Al, Ah ibe back data to send 

Inc Dl sinc to data port 

Qut Dx, Al Sous viand send it 

Pop Dx yRestore Dx 

Ret geeeand return 

Endp 

Endp 


JHHEHEHEHHHHHHHHE SEE 


* Convert Cursor to Linear # 
Freee resrerttrettst ts tt tts 3 


Proc = Near’ 

Xor Bh, Bh iBet page number in Bx 

Sh Bx, 1 ..double for word offset 

Mov Bx! CursorPosnt Bx feet and set the cursor 

ae Convert Convert xy to linear address 
p 
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LOC OBJ 


E 


LINE 


DTC/PC BIOS Video Driver V1.9 


SOURCE 


PEEELSEEESESEESEEPLESELEEEE 
* Convert Dot to Linear +# 
*#Dx = row (1-199) 


oe 


; 
i 
q 
: # Cx = column (1-639) # 
: # Returns: + 
' #2 = 8 for LoRes # 
H #7 = 1 for Hikes + 
: # SI Points to Byte * 
3 #Ch = Bit # # 
: perttestiiitciiitreri tise 
Convert Dot Proc = Near. 

Mov Al, 88 

Sr BIT 

r 

Inc cDEven 

Mov Si, 2008H 
CDEven: 

Mul Dl 

Add Si, Ax 

Hov eas. 

Mov 

Cup Soda 6 

Pushf 

Jne CDLoRes 

Mov Cx, 8703H 
CdLoRes: 

And Ch, D1 

Shr Dx, C1 

Add Si, Dx 

al C1,Ch 

Po 

Re 


Convert Dot Endp 


H SEEETELERLELAL ESTELLE EEE 
;: # Load 6845 With Cursor + 
; # Bi = Page # # 
; HEE EEE 
LoadCursor Proc Near 


Call ConvertCursor 
Add Aen 


Shr Ax, 
Rov Cx, Ax 
Mov Bh, 14 
Call LoadG845Double 
Ret 
LoadCursor Endp 


$E ject 


10:30:27 2/16/84 PAGE 


3# of bytes across 

‘re-load start of even field 
‘Divide rows by odd/even 
co if even field 
;Re-load start of odd field 


Multiply rows by 88 

jKeep in source pointer 

3Need Cx for shift 

task & # of bits in byte - Lo 
sHiRes? 

1a. 58VE ee for return 
Pe if not 

Mask &# of bits in byte - Hi 


Convert Ch to bit # in byte 
y...then shift it out 

yAdd offset in line 

foes Suap shift to cl 

32 = 1 for HiRes 

...and return 


;Convert cursor to linear 

jee add to start of page 

jens a cae only address 
ySend it to 6 

1 careiatet fi 

j..eand return 


33 


8086/8287/8086 MACRO ASSEMBLER 


LOC OBJ LINE 
2897 
2098 
2099 
2182 
2101 
F7SB 2182 
F7SB EBaAes 2183 
F7GE 8AES 2104 
F76@ FEC4 2185 
F762 EBQ308 2186 
F765 8ACS 2187 
F767 03 2188 
2189 
2118 
2111 
2112 
2113 
2114 
2115 
F768 2116 
F768 Se e1i7 
F769 BB16e808 E 2118 
F76D 8604 2119 
F76F EE 2128 
F77@ FEC2 elel 
F772 EC 2l22 
F773 SA 2123 
F774 C3 2124 
2125 
2126 
2127 
2128 
e129 
FIT 2138 
FITS 33 2131 
F776 ADs 21s 
F778 BAC4 e133 
FTTA F6268008 E 2134 
FTTE 3cFF 2135 
F789 @2C3 2136 
F7Be DIES 2137 
F784 SB 2138 
F785 C3 2139 
2148 
214i 
2142 
2143 
2144 
2145 
F786 2146 
F786 53 2147 
F787 BADS 2148 
F7B9 BATS 2149 
F78B F E 2158 
F7QF D1E® 2151 
F791 DIE@ 215e 
2153 
F793 3eFF 2154 
F795 @3C 2159 
F797 SB 2156 
F798 C3 2157 
2158 
2159 
poet 2168 
2161 
2162 


ASSEMBLY COMPLETE, NO ERRORS FOUND 


DIC/PC BIGS Video Driver V1.8 


SOURCE 


28 he 20 woe 


Fetch6845Double 


Fetch6845Double 


ane 0 ee 


FetchéB45 


Fetch6845 


see ee 


tonvert 


Convert 


Convert6raph 


ConvertGraph 
Bios 


End 


18:38:27 1/16/84 PAGE 


JERE EEEEEEE REESE EEE EEE EEE EE 
# Fetch Crt Controller with Word Parameter +# 


# Ah = Index Cx = Word # 
JABS HEE EEE EE 

Proc Near 

Call = Fetch6845 sGet a byte from the 6845 
Mov Ch, Al 2...it is half of word 

Inc Ah y...Inc to next byte 

{all = FetchB45 Get next byte from the 6845 
Mov C1, Al taesit is next half of word 
Ret 3...return with word value 
Endp 


JAAH HEE 
% Fetch Crt Controller with Byte Parameter + 
* Ah = Index (Cx = Byte + 
JAEHHHEHHEH EE EEE EEE EE EEE 


Proc =: Near 

Push = Dx ySave Dx 

Kov Dx, ActiveCard yGet port address 

Xehg = AL, Ah ,,.and send index from Ah 
Qut Dx, Al 3...¢0 point 6845 at register 
Inc Dl jeeeinc to data port 

In Al, Dx jereand get byte 

Po Dx sRestore Dx 

Re te.eand return 

Endp 


FAH FE 


* Convert from Row / Column to Linear Address # 
SREESEEEEESEPSE LESSEE EEE SESE EES EEE EEE 


Proc = Near 

Push = Bx jSave a register 

Nov B1,Al sGet colusns 

Kov Ah sBet rows in Al 

Mul ore Ptr CrtColusns j.:.and multiply by 

Xor Bh Add: in coluem 

Add Ax, Bx s...¢0 get char address 

Shl Ax, 1 s...convert to real address 

Po Bx j.. restore and 

Re ees return 

Endp 

AHHH HEE EEE 

# Graphics Convert + 

SESE EEHEESEEEE PEELE 

Proc Near 

Push = Bx jUsing Bx, save it 

Rov B1, Al ;Keep coluan value 

Fov Al, Ah yMultiply rows by 

Mul Byte Ptr CrtColuans ye..# colusns on screen then by 

Sh Ax, 1 j...4, cause in graphics mode, 

Shl Ax,1 3... there are 4 even field rows 
geesper character row 

Xor Bh, Bh sAdd in columns to figure as if 

Add Ax, Bx yeee@ach char was ag 1 byte 

Pop Bx s...Which is correct for HiRes 

Ret sMultiply x 2 for LoRes address 

Endp 

Ends 
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IBN PC/XT 8@86/8087/8088 MACRO ASSEMBLER V1.1 ASSEMBLY OF MODULE EQUIPRINT 
OBJECT MODULE PLACED IN EQUIPMNT. OBJ 
ASSEMBLER INVOKED BY: ASMB6 EQUIPHNT. SRC 


Loc OBJ LINE SOURCE 

1 +1 $Title ('DIC/PC BIOS Bouse Determination and Memory Size 1,0") 

2 +1 $Pagelength (88) Pagewidth (132) Debug Nogen 

: Name Equipant 

5 

; Author: Don K, Harrison 

4 j Start date: December 7, 1983 Last edit: December 17, 1983 
18 

ii : JERE 

12 ; # Module Description +# 

13 ; AHHH 

14 ; 

15 : This module contains the memory size determination service 

16 ; routine (Int 18) and the equipment inventory service routine Int (17). 
17 s fi dummy routine to serve the non-existant cassette interrupt (Int 21) 
ie ; 1s also included. 
20 

ei 
22 

23 

24 H {c) Display Telecommunications Corporation, 1983 

a j All Rights Reserved 
27 $Eject 


8086/8087/8@88 MACRO ASSEMBLER DTC/PC BIOS Equipment Determination and Memory Size V1.2 10:34:28 @1/16/84 PAGE 2 


LOC OBJ LINE SOURCE 


HEE 


# Revision History # 
EBB EEE 


Gy 
= 
a me ee 


40 $Eject 


a 


6086/8087/8088 MACRO ASSEMBLER = DIC/PC BIOS Equipment Determination and Memory Size V1.8 10:34:28 81/16/84 PAGE 3 


LOC OBY LINE SOURCE 

Al 
42 ; SHEE EHS 
43 j # Public Symbols # 
44 : petrtttirtit settee sd 
45 
: Public EquipDriver, MeworySizeDriver, CassetteDriver 
46 
49 : EELEEEEEEEEEE 
38 ‘ # Equates # 
31 A EREEEEEEESEEE 
32 
z : All Equates in include file: Ibalnc 
39 $Include (IbmInc) 

=} 56 ' ABBE 

=1 97 } # Global Include File # 

=| 38 ‘ JHE 

=1 99  4Nolist 
373 $E ject 


8086/6087/8888 MACRO ASSEMBLER 


LOC OBJ 


DTC/PC BIOS Equipment Determination and Memory Size V1.2 


SOURCE 


: 
i 
j 
BiosDataArea 


BiosDatafrea 
$Eject 


10:34:28 @1/16/84 


FELELELEEELETE LTE ES 


* Data Segments + 
ERELERELEELE ERE LE 


er Public 
seal MemorySize:Word, EquipFlag:Word 
cncs 


PAGE 


4 


8066/8087/8068 MACRO ASSEMBLER 


LOC OBY LINE 


---- 594 


FB4l 602 


FB41 604 
Fe4i FB 685 
Fee LE 686 
FB43 BE---- R 687 
FB45 BEDS 685 
FR4B ALQERE E 689 
FR4B LF le 
Fe4o CF bli 


Fe4D 619 


FO4D 621 
FB4D FB 62 

FO4E 1E 623 
Fa4F BB---- R 624 
Fase BEDS £25 
FB54 ALaeee E 626 
F857 LF 627 
Fasé CF 628 


FBS 635 


Fasg £37 
F859 F9 638 
FBSA B486 623 
Fast CA¢z8B £4e 


ASSEMBLY COMPLETE, NO ERRORS FOUND 


DTC/FC BIOS Equipment Determination ard Memory Size V1.2 


SOURCE 
; EREREEESEEEEEEELEE 
: * (Code Segment # 
: ABH 
Bios Segment Common 
Assume {s:Bios, Ds:BiosDatahrea 
; EEESEEPEPEEESESES 
; * Memory Size # 
; FREEESESESELEEEES 
Org OF841H 
a a Proc =- ‘Far 
$i 
Push = Ds 
Mov Ax, BiosDatafrea 
Hlov Ds, Ax 
Mov Ax, NemorySize 
Pop Ds 
Iret 
MemorySizeDriver Endp 
; SEH 
‘ # Equipment Inventory +# 
; FEERESETEATEEESESEEELEEE 
Org OFB4DH 
EquipDriver Proc = Far 
Sti 
Push = Ds 
Mov Ax, BiosDatafrea 
Mov Bs, Ax 
Mov Ax, EquipFlag 
Pop ss" 
Iret 
EquipDriver Endp 
; EEEELSESEEEEEE EEE ELEESEREE 
: * Dummuy Cassette Driver + 
; FEE EEEE SLE ETASEEAEES 
Org @F859H 
CassetteDriver Proc Far 
Sic 
Hoy Ah, 86H 
Ret 2 
CassetteDriver Endp 
Bios Ends 
End 


10:34:28 01/16/84 PAGE 


sRestore interrupts 
ySave data segment 
gessload ours 
jaorit 

7Get the info 
yRestore 

jeeeand return 


sRestore interrupts 
ySave data segment 
ye.» i0ad ours 
foo.1N 

3Get the info 
yRestore 

3..,and return 


sError return 
je. value 
jToss flags and return 


5 


8086/8087/8@88 MACRO ASSEMBLER  DTC/PC BIGS Interrupts Vi.@ 18:37:38 B1/16/B4 PAGE 


TB PC/XT 8@86/8287/8G88 MACRO ASSEMBLER Vi.1 ASSEMBLY OF MODULE INTS 
OBJECT MODULE PLACED IN INTS. OBJ 
ASSEMBLER INVOKED BY: ASMA6 INTS. SRC 


LOC OBS LINE SOURCE 

1 +1 $Title (*DTC/PC BIOS Interrupts Vi.8") 

2 +i saaeleeee (8@) Pagewidth (132) Debug Nogen 

3 Name Ints 

4 

i) 

; Author: Don K. Harrison 

4 ; Start date: October 25, 1983 Last edit: December 26, 1983 

2 ; AHHH 
: # Module Description +# 
; BEER HEHE EE HEH 


This module contains the interrupt vector addresses. 


et ee ee 
420 Cod Om CD = Cal 


20 

zi ; {c) oe Telecommunications Corporation, 1983 
a F ll Rights Reserved 

z 

z4 $Eject 


i 


6086/8087/4088 MACRO ASSEMBLER  DIC/RC BIOS Interrupts V1.8 10:37:38 @1/16/84 PAGE e 


LOC OBJ LINE SOURCE 


a7 ; AHHH EH 
rat ; * Revision History # 
23 F FEEEEEEELELEREELEIEEEL 


27 $Eject 


AG65/8087/8085 MACRO ASSEMBLER  DTC/PC BIOS Interrupts V1.0 10:37:38 1/16/84 PAGE 3 


LOC OB. LINE SOURCE 

38 
39 : SEE SESE SE 
4Q ; # Public Symbols + 
4} H UE EEE 
42 
4g Public RamVectors, ROMVectors, VideoTrapAddr, BasicTrapfddr 
44 Public VidParamsTrapAddr Agr ella big 4 
45 Public VideoBraphicsTrapAddr, Illegallnt, NMIInt 
re Public PrintSereenTrapAddr, NMITrapAddr 
46 ' SETEEEEEEEEE 
49 H * Equates # 
50 ; SHEE 
oi 
a H All Equates in include file: Ibalnc 
34 $Include (Ibmine) 

=i 55 ; JHEEHHEEHR HEHEHE 

=i 6 ': * Global Include File +# 

=] of A JABS 

=} 58  $Nolist 
a78 $E ject 


BOR6/8087/8088 MACRO ASSEMBLER  DTC/PC BIOS interrupts V1.8 10:37:38 01/16/84 PAGE 


LOC OBs LINE SouRr 
579 ; ACHES 
ity : + Ram Based Interrupt Vectors # 
Sai : petrtttiittr titi trite it ett irs cry 
o62 
ao a IntSegment Segment Public 
r 
a0g2 585 RamVectors Label DWord 
ao (1 a86 ZeroDivisionTrapAddr Dd 1 Dup (?) ;Divide by zero vector 
99999979 
} 
Oge4 (1 387 SingleSteptrapAddr Dd 1 Dup (7) ;Single step vector 
29999992 
800 588 NMITrapAddr Dd 1 Dup (?) 3Non waskable interrupt vector 
27292729 
) 
erect u 589 Breakpoint TrapAddr Ded 1 Dup (?) yBreakpoint interrupt vector 
27292272 
} 
O018 398 Over flowTrapAddr Dd 1 Dup (?) yQverflow interrupt vector 
27297277 
) 
O0i4 (i 291 PrintScreenTrapAddr Dd 1 Dup (?) ;Print screen vector 
99297777 
) 
8018 (1 592 Undef it TrapAddr Ded 1 Dup (?) ;Undefined vector #1 
99999277 
) 
@B1C (1 393 UndeféTrapAddr Dd 1 Dup (?) yUndefined vector #2 
99997977 
} 
594 
a ; Hardware interrupts 
597 TimerHderTrapAddr Dd 1 Dup (?) yTimer interrupt 
9227297) 
) 
4 598 KeyboardHdwrTrapAdd d ? ; i 
Pat eyboardHdwrTrapAddr =D) 1 Dup (?) ykeyboard interrupt 
) 
9828 (1 599 IRGH¢wr TrapAddr Dd 1 Dup (7) yInterrupt 2 interrupt 
29272979 
) 
e820 ee £00 Sio2HderTrapAddr Dd 1 Dup (?) sSerial channel 2 interrupt 
) Hac iergr ac § 
O38 (1 681 SioiHdarTrapAddr Dd 1 Dup (?) ySerial channel 1 interrupt 
77992779 
) 
0034 (1 bbe HarDiskHderTrapAddr Dd 1 Dup (?) yHard disk interrupt 
7722797? 
) 
Q838 (1 £83 F loppyHdwrTrapAdd Dd 1 Dup {?) iF disk int t 
saute ppyHdwrTrapAddr up sFloppy disk interrup 
) 
030 (1 604 PrinterHdwrTrapAddr Dd 1 Dup (?) yPrinter interrupt 
7977997) 
) 
685 
oe H Driver entry points 
8842 (1 608 VideoTrapAddr Dd 1 Dup (?) yVideo trap vector 
79222729 
) 
0844 (1 609 EquipTrapAddr Dd 1 Dup (?) yEquipment query vector 
97979997 
) 
Q048 (1 618 MeworySizeTrapAddr Dd 1 Dup (?) jMemory size query vector 
79977792 
} 
(i 6l1 FloppyTrapAddr Dd 1 Dup (?) sDiskette vector 
779799997 
) 
8058 (1 ble CommsTrapAddr Dd i Dup (?) ;Serial interface vector 
99999999 


8086/8067/8086 MACRO ASSEMBLER 


LOC OBJ LINE 
) 
e054 (1 613 
97799999 
) 
esa (1 614 
97997979 
} 
east (1 615 
29999979 
) 
Q6e (1 616 
2997979 
617 
97979979 
} 
Q068 (1 618 
99997979 
j 
QC (1 619 
77979979 
} 
ee7e (1 620 
99999979 
) 
621 
622 
623 
0074 (1 624 
97977979 
) 
e7e (1 625 
97999999 
) 
Qe7C {1 626 
79979979 
) 
627 
oe 628 
629 
630 


DIC/PC BIOS Interrupts V1.9 


SOURCE 
CassetteTrapAddr 
KeyboarTrapAddr 
PrinterTrapAddr 
BasicTrapAddr 
Boot TrapAddr 
TODTrapAddr 
KeyBreakTrapAddr 


TickTrapAddr 


1 


VidParamsTrapAddr 
FloppyParamsTrapAddr 


VideobraphicsTrapAddr 


IntSegnent Ends 
$Eject 


Dd 1 Dup 
Dd 1 Dup 
Dd 1 Dup 
Dd 1 Dup 
Dd 1 Dup 
Dd 1 Dup 
Dd 1 Dup 
Dd 1 Dup 


Data Pointers 


Dd 1 Dup 
Dd 1 Dup 
Dd 1 Dup 


10:37:38 01/16/84 PASE 


yCassette (dummy routine) 
yKeyboard driver vector 
;Printer driver vector 
yCassette basic vector 
sBootstrap loader trap vector 
Time of day vector 
;Keyboard break abd tress 
jliser break abd Dress 
;Video parameters 


;Disk parameters 


yVideo graphics characters 


=i 


§086/8087/8086 MACRO ASSEMBLER 


LOC OBI LINE 
631 
632 
633 
624 
---- 635 
636 
-—-- 637 
638 
639 
648 
64 
642 
os 643 
644 
645 
646 
647 
648 
649 
650 
651 
652 
653 
E54 
655 
656 
657 
658 
FOSF 659 
660 
66! 
B62 
FASF 663 
FBSF 5@ 664 
FAGR 53 665 
FAG: Si bEE 
FAG2 52 667 
FBE2 56 668 
FBG4 57 669 
FBES 55 670 
FOGE 1E 671 
FRET @6 672 
FOB E462 673 
FBGA ABCD 674 
FOC 7583 675 
FBGE ESBCQD. 67 
FAT! 677 
FB71 BB—~- R 678 
F874 BEDS 679 
Fa76 Eaeoee E B® 
FB79 1E 681 
FA7A QE 682 
FQ7B IF 684 
FB7C BELBF990 684 
FBBO ERQ000 E G 
FAG? 1F 686 
FO84 BB1100 687 
Faa7 £ag0e0 E 688 
689 
690 
691 
FaaA BAnaDe 692 
FAD Bade 693 
FOOF EAD 694 
FBS: BAGIOG 695 
FBS4 EC 696 
FB95 C30 697 
F897 EE 698 
Fa9B 24CF 699 
FAA EE 70@ 
FBSB Bide 701 
FSD BBIEOWOO E 702 
FAL D3E3 703 
FOA3 42 784 
785 


DTC/PC BIOS Interrupts V1.8 


SOURCE 

; JARHE HEE 
: * Public Variables + 
; SEH 
BiosDatahrea Segment Public 


BicsDataArea End 


JAH EEE EEE 


& ROB Based Seguent # 
JERE 


wn ae 


Bios Sequent Comson 


10:37:38 81/16/84 PABE 


Extrn MemorySizesWord, IntrFlag:Byte 
5 


Extrn WordQut:Near, CharOut:Near, NibbleQut:Near, KeyIn:Near 


Extrn PrintMessage:Near, Bee 
Extrn KeyboardHdwriInt:Far, F 


iNear, TimerHdwrint Far 
oppyHderInt :Far 


Extrn VideoDriver:Far, EquipDriversFar 

Extrn MemorySizeDriver:Far,FloppyDriver:Far, CosmsDriver Far 
Extrn CassetteDriver:Far, KeyboardDriver:Far, PrinterDriver:Far 
Extrn BootDriver:Far, TODDriver:Far, VidParamsPointer :Byte 


Extrn FloppyParamsPointer: 


te, ResetEntry:Far, PorEntry:Far 


Extrn Videolnit:sNear, Clearbcreen:Near, PositionCursor:Near 


ELEEEEELEELEEEEEE EEE EE EELS 


* Parity Error Service #* 
EEELELELEELEELER EEE EE EEE LE 


te ee 


Org QFASFH 

Assume Cs:Bios, Ds:BiosDatafrea 
NMTInt Proc Far 

Push Ax 

Push Bx 

Push Cx 

Push Dx 

Push $i 

Push Di 

Push Bp 

Push 

Push Es 

Tn Al, Port PPIPortl 


Al, 118080005 
Jnz Ni LOccurred 
Jup NMTReturn 


NMlOccurred: 
Mov Ax, BiosDataArea 
Mov Ds, Ax 
Call Videolnit 
Push Ds 
Push Cs 
Pop 


Ds 
Mov Si, Offset Paritymsg 
Call PrintMessage 


Ds 
Mov Ax, @@11H 
Cali PositionCursor 


; Find error location 


Mov Dx, PortNMIMask 

Mov Al, NMIMask 

But PortNeIMask, Al 

Mov Dx, PortPPIPortB 


In Al, Dx 

Or Al, 001180005 
Out Dx, 

And Al, 118611118 
Gut X, 

Mov Cl,6 

Mov Bx, MemorySize 
Shl Bx, C1 

Inc Dx 


sAlign with PC / Xt 


. Save 


Onsen we cen 
ee 


Registers 
je 
je 


iGet NMI status port 
t.seany interrupts pending? 
jose jump if yes 

j.e@]52, ignore and return 


sPoint at our data area 
3-oe4ith Ds 
yInitialize the video 


sRe-position cursor 
jes. for writing address 


yPoint ae arial controls 
;Disable NAI's 

3... from causing further err’s 
yPoint at port 

yet ‘emai! controls 

Set thea Hi 

3... clearing F/Fs 

y5et thea Lo 

f.e enabling them 

;Convert einai size fro 
yeaalk blocks to 

t...16 byte paragraphs 

sBump to port C 


8@86/8087/8088 MACRO ASSEMBLER 


LOC OBJ LINE 
786 
787 
FBA4 3300 708 
FBAG SEDE 709 
FBAB 718 
Fae B91800 711 
FOAB 33F6 712 
FBAD 713 
FGAD SRz4 714 
FBAF EC rats) 
FOBQ ABLE 716 
F8B2 758F 717 
FOB4 46 718 
FBBS E2F6 719 
FAB7 ACS 72 
FBBS 48 Tel 
FBBA BEDS Tee 
FBBC 3BC3 Te3 
FOBE 75€8 724 
FAC® EBQD9O 725 
FaC3 726 
FaC3 8824 Tel 
FBCS 8CD8 728 
FOCT7 Ebeeas E 729 
FBCA 8BCE 730 
FBCC Esaaee E 731 
F8CF 732 
FaCr B81De0 733 
FaD2 E8@dae E 734 
FADS 1 735 
FADE BE 736 
FAD7 1F Tal 
FADS BES2F998 738 
FaDC Eabeee E 739 
FADF 1F 748 
FOER E4ci 741 
FRE? 58 742 
FOES BFC 743 
FRES E621 744 
FOE7 FB 745 
FREB EBGBR2 E 746 
FOER 58 747 
FBEC Eaaeae E 748 
FaEF 8 749 
FaF@ 3059 Tag 
FaFe 7489 Tal 
FBF4 3C79 
FOF 7485 733 
FOFB EAGQB2--~- E Ta4 
FeFD 739 
FOF) EGeeae E 736 
F@@ 58 737 
F981 E621 738 
F903 BAG1G2 739 
FOE EC 768 
F987 QC38 761 
F909 EE 762 
FRA 24CF 763 
F9@C EE 764 
F9BD BOad 765 
FOOF ERG 766 
F911 87 767 
F912 IF 768 
F913 SD 769 
F914 SF 710 
F915 SE 771 
F916 5A TTe 
F917 59 TH 
F918 SB TT4 
F919 58 105 
FOIA CF TH6 
FOIB 5617269747920 777 
6572726 722061 
Lee ieee 


DTC/PC BIOS Interrupts V1.8 


10:37:38 1/16/84 PAGE 


SOURCE 
i Setup Pointers 
apr mae Pi saan aan pointer at @ 
Vv x j.+.to tes 
ParagraphLoop: : : 
Mov Cx, 16 yNumber of bytes in a paragraph 
Bytel Xor $i,5i ‘First byte in paragraph 
eLoop: 
Hov Ah, [Si] ;Get a byte 
= : A maa Get ld status bits 
es 11 q.seGither set? 
Jnz FoundError + Jump if error found 
Inc Si ;Increment byte pointer 
Loop ByteLoop y...@lse loop through paragraph 
Mov fix, Ds yGet paragraph value 
‘s ; j.eeincrement it 
OV x jeeeand 
Cup Ax, Bx +. Compare it to end 
Jne ParagraphLoop ...and loop till all done 
_— Jup NoErrorFound i,..no error detected, return 
oundError: 
Mov {SiJ, Ah sSet parity in sewory 
Hov Ax, Ds jGet paragraph value 
Call = WordQut y...and output it to screen 
rol Nidbleout pene eroart 
NoErrorFound: ie 
Mov fix, @81DH ;Position cursor to end 
Call = PositionCursor j.efor retreiving answer 
Push Ds ;5ave our seg 
pe = jLoad ge ania 
op S je..into data pointer 
Rov $i, Offset ContMsg ‘Print error message: 
a aves ee 
p 5 gRestore our se 
In Al, PortPicOCll ick anberrunt aakt 
ush x ye2eand save it 
Mov Al, 111111008 +. .unsiask only clock and kbrd 
Out PortPicOCW1, Al y...0utput it 
Sti ;Turn ints back on 
Bak ele — : aa data 
us| K ;Save Ax 
Call CharBut ‘Echo keyboard response 
ee a ips peers Ax 
ip Seca? 
3 Nit Return te JUEP and return if yes 
mp fooe¥? 
Je net Return me and return if yes 
sBirrick Jmp PorEntry ;Re-boot from cold start 
eturn: 
ing ClearScrean teeer the screen 
‘0 x sRestore mask 
Ou PortPicOCW1, Al +... like before 
ov Dx, PortPPIPortB ;Point at port B 
In Al, Dx Get Extgaeontiee 
Or Al, 081 180088 ySet thes Hi 
Qut Dx, Al 3.:.Clearing F/Fs 
And Al, 110811118 ;Set thea Lo ‘ : 
Koy AL NATUnmask nto aah scale 
Out PortNATRask, al enabling 
op 5 Fa veousstonacnesscesseess 
Pop Ds :, ‘ 
Pop Bp a . 
Hs : i: Restore . 
op i ee , 
oe a :, Registers : 
p x ae : 
Pop Bx :. 7 
Pop Ax Jecesecenencsauerseseerys 
Tret y...and return, restore ints 
Paritylsg Db ‘Parity error at: 27772°,@ 


A@46/8087/8068 MACRO ASSEMBLER 


Loc OBJ LINE 
F931 O82 
F932 2O436F6E743F 718 
F938 G2 
779 
78 


DIC/PC BIOS Interrupts V1.8 


SOURCE 


ContMsg 


NEI Int 
$Eject 


Db 
Endp 


» Cont??,@ 


10:37:38 81/16/84 PAGE 


a 


8086/8087/8086 MACRO ASSEMBLER 


LOC OBJ 


FEF3 
FEF3 


FEF3 @088 
FEFS 8820 
FEF? 23tF 
FEFQ 23FF 
FEFB 23FF 
FEFD 23FF 
FEFF Q@02 
FFL 23FF 


FFQ3 Q082 
FFQ5 @202 
FFO7 gaae 
FFQ3 8220 
FFOB #202 
FFOD 2802 
FFOF aaa 
FFL1 828 
FF13 ¢3FF 
FFLS 8020 
FFi7 @eee 
FFL9 S3FF 
FFB S3FF 


FFiD @0a2 
FFIF 880¢ 
FF2i eae 


LINE 


mm 
~ 
wo 
pare 


rm rmmmmmmmm 
wo 
= 
= 


mm 
oo 
- 
wo 


DIC/PC BIOS Interrupts V1.2 


SOURCE 


nee ne oe 


RomVectors 


$Eject 
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JAH HHH HEHEHE PEE 


# Rom Based Vector Initialization Data +# 
SLELELELEAAL PEELE SELES EE EEE EE ELE EEE EEE 


Org OFEF SH 
Label DWord 
Hardware interrupts 


Dw TiserHder Int 

Dw fs bee taal 
Illegal int 

Dw Illegal Int 

Dw Illegal Int 

Dw TlegalInt 

Dw FloppyHder Int 

Dw 11legallnt 


é Driver entry points 
Dw VideoDriver 

Dw EquipDriver 

Du MemorySizeDriver 
Dw FloppyDriver 

Dw CommsDriver 

Dw CassetteDriver 
Dw KeyboardDriver 
Dw PrinterDriver 

Dw Illegal Int 

Dw Boot Driver 

Dw TODPriver 

Dw DummyRet urn 

Dw DummyRet urn 

; Data Pointers 

Dw VidParamsPointer 


Dw SCE 


sAlign with PC/Xt 


yTimer interrupt 

sKeyboard interrupt 
tInterrupt 2 interrupt 
Serial channel 2 interrupt 
Serial channel 1 interrupt 
sHard disk interrupt 
iolepey disk interrupt 
Printer interrupt 


;Video driver trap vector 
yEquipwent query vector 
reel | size query vector 
yDiskette driver vector 
;Serial interface vector 
yCassette (dummy routine) 
jKeyboard driver vector 
*Printer driver vector 
sCassette basic vector 
;Bootstrap loader trap vector 
slime of day vector 
jKeyboard break address 
yTimer break address 


yVideo parameters 
yDisk parameters 
;Video graphics characters 
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6056/8067/8088 MACRO ASSEMBLER 


LOC OBJ LINE 
822 

824 

ra} 

826 

FF23 827 
FFe3 iE 828 
FF24 Se 829 
FFe5 58 838 
FF26 BA---- R 831 
BEDS 832 

FFB BOQE a23 
FFeD E620 834 
FFF 90 835 
FF3@ E48 836 
FF32 GREG 837 
FF34 @ACO B38 
FF36 7584 839 
FF38 BOFF B48 
FF3A EBQA 841 
FF3C 842 
FF3C E4ei 843 
FF3E @AC4 B44 
FF4Q E621 a45 
FF42 Be2e B46 
FF44 £620 847 
FF4E B48 
FF46 B8268800 E B49 
FF4A 38 85 
FF4B SA 851 
FF4C iF B52 
FF4D CF 853 
854 

855 

856 

857 

836 

859 

FF33 868 
FFS2 B61 
FFS2 CF B62 
B63 

Sad ab4 
B65 


ASSEMBLY COMPLETE, NO ERRORS FOUND 


DOTC/PC BIOS Interrupts V1.8 


SOURCE 


a8 en won 


Illegalint Proc = Near 
Pp 


ush Ds 
Push Dx 
Push = Ax 
Hoy Ax, BiosDatafrea 
Hoy 


Ds, Ax 
Moy Al, 828018118 
Out PortPICOCWe, Al 


Nop 

In Al, Port PICOCWe 

Hoy fh, Al 

Or Al, Al 

Inz NonZeroLevel 

ov : 

Jap Short IllegalReturn 
NonZeroLevel: 

In Al, PortPICOCWi 

Or Al, Ah 

Out PortPICOCWi, Al 

Mov Al, PICEO! 

Out PortPICOCwe, Al 
I]legalReturn: 

Mov IntrFlag, Ah 

Pop Ax 

Pop Dx 

Pop Ds 

Iret 


IllegalInt Endp 


: AHBEHHEBHHER HEE 
; + Compatibility Return # 
; retrttittttititictii ees tog 


Org BFFOSH 
DumayReturn: 

Iret 
Bios Ends 
End 


SHE HEE EEE SSS EEE 


* Illegal Interrupt Handler 4 
SRELEREELEAE EEE 
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i. Save Registers . 
jload our data 

jee Segpent 
sCommand to point at 
faeein Service register 


;Get in-service register 
ySave it for masking 
3Zero? 

fees jump in not 

sFlag for non-hardware 
fees Jump and return 


yGet Mask Register 
3,..mask off service level 
je.ein progress 
sInterrupt ack 

y...¢0 82098 


ySet global variable 
yRestore 
Registers 
and 
Return 


wa we we 


sAlign with Xt and Pc 
sReturn found in Pe and Xt 
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8886/8087/8088 MACRO ASSEMBLER  DIC/PC BIOS Useful Procedures V1.8 10:35:52 81/16/84 PAGE 


IBM PC/YT 8086/8087/8088 MACRO ASSEMBLER Vi.1 ASSEMBLY OF MODULE USEFUL 
OBJECT MODULE PLACED IN USEFUL. OBJ 
ASSEMBLER INVOKED BY: SHBG USEFUL, SRC 


LOo OBI LINE SOURCE 
1 +1 $Title (DTC/PC BIOS Useful Procedures V1.0") 
zc +1 abe oh al (83) Pagewidth (132) Debug Nogen 
3 Name Useful 
& 
5 
6 ; Author: Don K. Harrison 
5 ; Start date: December 14, 1983 Last edit: December 27, 1983 
io; 
ti ; JERSE SEE EEESE 
te j * Module Description +# 
13 : JAHBHBBHHEEEEHEEE 
14 
4 : This module contains some useful subroutines, including: 
i7 ; Beep Beeps the bell 
18 ; PrintMessage Prints a message ending in @ 
19 ; WordOut Qutputs a word value from Ax 
28 : ByteQut Outputs a byte value from Al 
ei F CharQut Qutputs a character in Al 
22 : NibbleDut Outputs a single nibble from Al 
23 7 CrtCrif Qutputs a carriage return line feed 
24 : KeyIn Gets character from keyboard 
25 ; Videoinit Initialize video from switches 
26 ‘ ROMCheck&K Rom checksum procedure 
27 ; KemoryTest Ram memory test 
28 : ClearScreen Clear screen 
F PositionCursor Position cursor frou Ax 
31 : {c) basley Telecommunications Corporation, 1983 
< : 1] Rights Reserved 
3 $Eyect 


8086/8087/G068 MACRO ASSEMBLER DTC/PC BIOS Useful Procedures V1.0 ; 10:35:52 1/16/84 PAGE 2 


Loc OBJ LINE SOURCE 


37 : EEELEEEEEEEE EELS 


* Revision History # 
HELEELALELESLE ELLE ELEE 


bl 
ocr 
ew 


47 $Eject 


AQB6/8087/8088 MACRO ASSEMBLER DTC/PC BIOS Useful Procedures V1.0 10:35:52 O1/16/84 PREE 3 


LOC OB LINE SOURCE 
48 
49 ; SAH 
32 : # Public Symbols # 
Si ' AEE 
ue 
93 Public ByteDut, WordOut, CharDut, NibbleDut, KeyIn 
54 Public PrintMessage, Beep. Videotnit, CrtCrLf 
Rh] Public ROMCheckSK, HenoryTest, ROMCheckCx 
2 Public ClearScreen, PositionCursor 
8 F EREEEEELELEES 
39 : * Equates * 
68 ; HEE EEE 
if 
oeeD 62 AsciiCarriage Equ @DH yCarriage return 
820A 2 AsciiLineFeed Equ @AH ;Line feed 

65 $Include (Ibminc) 

=. £6 ; JAH: 

=1 G7 : # Global Include File +# 

=1 «68 H JAH EEE 

=] 9 $Nolist 


389 $Ejact 


8046/8087/8038 MACRO ASSEMBLER 


LOC OB! LINE 


DTIC/PC BIOS Useful Procedures V1.@ 


SOURCE 

i 

; 

H 
BiosDatafrea 


BiosDatafrea 


$Eject 


FEEELEL EEE EEE 


* Data Segments + 
SEESELELERE TEE ELELE 


a mg? Public 
Extrn EquipFlag:Word 
Ends 


10:35:52 81/16/84 PAGE 
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8086/8087/8088 MACRO ASSEMBLER 


LOC OBJ LINE 
600 
681 
682 
603 
== 604 
685 
686 
627 
568 
F950 689 
618 
611 
ble 
613 
614 
F95e 615 
FQ5e 5@ 616 
F951 Bie4 617 
F953 D2E8 618 
F955 E81B02 619 
F958 38 628 
F959 £81788 621 
F9SC C3 622 
623 
624 
625 
626 
627 
628 
FISD 629 
F9SD 30 630 
FIDE BAC4 6231 
F96@ EBEDFF 632 
F963 56 632 
F964 ESESFF 634 
F967 C3 635 
636 
637 
638 
639 
642 
641 
F968 642 
F96B 33 643 
F969 58 644 
FOGA B4@e 645 
FOEC B327 646 
FOGE CD18 647 
F978 38 648 
F971 5B 649 
F972 C3 658 
631 
632 
653 
634 
635 
656 
F973 697 
F973 58 638 
F974 248F 659 
F976 3089 666 
F978 782 661 
FS7A 8487 662 
FITC 663 
F97C 0430 654 
FO7E ESE7FF 665 
F961 38 666 
F982 C3 667 
668 
669 
670 
671 
672 
673 
F983 674 


DTC/PC BIOS Useful Procedures V1.2 


SOURCE 
; UBHEEEEEE EES 
: # Code Seguent # 
; PEEEEEEEEEEEEESESE 
Bios Seguent Common 

Extrn NMI Int:Near 

Assume Cs:Bios, Ds:BiosDatafrea 

Org OF 950H 
; JS EEEEEE EE EEE 
; # Output a Byte Value # 
; EEE EEE EEE 
ByteQut Proc Near 

Push = Ax 

Mov C1,4 

Shr Al,Cl 

Call‘ NibbleQut 

pr Ax 

Call  NibbleQut 

Ret 
ByteQut Endp 
; AEH EES 
i # Qutput a Word Value # 
; JASE 
WordOut Proc Near 

Push x 

Mov Al, Ah 

Call eQut 

Po Ax 

Call  ByteQut 

Ret 
WordDut Endp 
; AEE 
: * Qutput a Character # 
: ert ti titi titittt ttt isd 
CharOut Proc = Near 

Push = Bx 

Push = Ax 

Hov fh, VidCedWrTTY 

Mov B1,7 

Int TrapVideo 

Fop Ax 

Po Bx 

Re 
CharQut Endp 
: JASE EE EEE SES 
. # Qutput a Nibble +# 
: EEE EEE EEEEES 
Nibbledut Proc =- Near 

Push = Ax 

And Al, @FH 

Cap Al,9 

Jbe LessEqu9 

Add Al,7 
LessEqu9: 

fidd Al, '@ 

Call = CharQut 

Pop fix 

Ret 
NibbleQut Endp 
; JASE EEE EEEEEEEEEEE 
‘ # Carriage Return Line Feed * 
: JACEE EEE 
CrtCrlf Proc Near 
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sAvailable spot in ROM 


;Save low nibble 

3e.2eShift it to lower nibble 
jeoed 

je. eoutput it 

;Restore lower nibble 
feeeand output it 

ye. then return 


;Save Lo byte 

sGet Hi byte first 
s,s.and output it 
7Get lo byte 
ye..and output it 
jeaethen return 


ySave Bx 

j..eand Ax 

;Command = Write TTY 
*Foreground color if in graph. 
ySend char TTY style 

;Restore 

gee Tegisters 

jeecand return 


sSave Ax 

;Strip upper, just in case 
yIs it greater than 9? 

fees Jump if it isn't 

y..-else add diff from 9 to A 


sAdd ascii offset 
t.. Output it 
sRestore Ax 
y..eand return 
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8086/8@87/8088 MACRO ASSEMBLER 


LOC OBJ 


F982 BORD 
F985 ESE@FF 
F988 BOGA 
F98A ESDBFF 
F9AD C3 


FORE 

FOBE Baa 
F998 CD16 
F992 C3 


F999 ESCCFF 
F99C EBFO 


FOE 

FOSE 58 
FOSF 31 
FOAR BOBE 
FSA2 E643 
F9A4 BB26R5 


FOBG Ee2FE 
F9Ba FECB 
FOBA 75FA 
FOBE 568 
FOBD E661 
FOBF 59 
FSC@ 58 
FOC1 C3 
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FSC2 BA26RBR0 E 
FOCE BOE432 

F9CS BeBe 

FOCB 8GFC38 


FODS 7402 
F9D7 Ba@s 


LINE 


DIC/PC BIOS Useful Procedures Vi.@ 


SOURCE 


CrtCrlf 


meme on 


KeyIn 


KeyIn 


wee son 


PrintMessage 


PrintMsgCont: 


PrintMessage 


BeepLoop: 


won an 


VideoInit 


Mov Al, AsciiCarriage 
CharQut 


a 
Mov Al, AsciiLineFeed 
Call = CharQut 


SEER EEE EEE SS ES EEE 


# Get Keyboard Character # 
AEE ESE EEE 


Proc = Near 

Kov Ah,@ 

Int TrapkeyDrive 
Ret 

Endp 
JHB 
# Print a Message # 
pre eritieritertie tts 3 
Proc = Near 

Lodsb 

Or Al, Al 

Jnz PrintMsgCont 
Ret 


Call = Charfut 
Jmp PrintMessage 


Endp 

SeEEEEEEEE 
# Beep # 
EEE 
Proc Near 
Push Ax 
Push 


Cx 
Boy Al, 181101108 
Out PortCTCMode, Al 


Ax, 13228 
Out PortCTCLoadChe2, Al 


al, Ah 
Dut Port CTCLoadCh2, Al 
In Al, Port PPIPortB 


Push 

Or Al, @8880011B 
Dut PortPFIPortB, Al 
Xor Cx, Cx 

Loop Beeploo 

Dec Bl ‘ 

Jnz BeepLoop 

Po Ax 

Ou PortPPIPortB, Al 
Pop Cx 

Pop Ax 

Ret 

Endp 
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sCharacter command 
jee. do procedure 
j..eand return 


jGet a character 
qeoeis it Q? 
toeo Jump if not 
js else return 


zee 0utput it 
3...and loop till @ found 


ySave Ax 

jereand Cx 

ySetup timer 

aicteln 

ySave freq as IBN 
f.eeLo byte 

Fees Hi 

3... byte 

sGet current value of ctl port 
yoeesave it 

Turn on the speaker 
qeeeduring the beep 
jLong count in Cx 


Wait 

3...decrement user supplied 
see.variable and loop till done 
yRestore port value prior to 
3... beep and restore it 
yRestore used registers 

fae and 

jee return 


SEESETELES LEASES 


# Video Default Initialization Procedure +# 
itettiitiitt tr tt itititi ttt iitiet ttre) 


Proc Near 

Mov Wey Ptr EquipFlag Which card to init? 

And Ah, sIsolate display bits 
Mov Al,@ yMode = Monochrome 

Cap Ah, 38H jis monochrome selected? 
Je InitVidJmp joo. Jump if 50 

Mov Al,i sMode = 48x25 

Crap Ah, 1@H Is color 48x25? 

Je InitVidJmp jeoe Jump if 50 

Hov Al,3 3Mode = 68x25 
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8086/8087/8088 MACRO ASSEMBLER 


LOC OB! LINE 

FSD9 738 

F9D9 B4ee Tal 

FSDB Chia T32 

FSDD C3 7a3 

734 

TH 

756 

Ta? 

738 

7349 

FODE 768 

FSDE BA4F18 761 

F9EL 3309 762 

FSE3 BBGOO6 763 

F9EG B77 764 

F9EB CD18 765 

FIEA Bége 766 

FOEC BARROA 767 

FOEF B7@e 768 

FOF1 CD18 769 

FOFS C3 T1@ 

771 

772 

773 

774 

115 

716 

FOF4 TH 

FOF4 52 778 

FOFS 93 779 

FOFE aBbe 788 

FFE Bate 781 

FIFA B7GG 782 

FOFC Coie 783 

FOFE 3B 784 

FOFF SA 785 

FAB C3 786 

787 

788 

789 

738 

791 

792 

793 

FAQi BIBECE 794 

795 

FAG4 BORO 796 

AGE 197 

FAGE O27 798 

FAGB 43 799 

AQQ Ee 88 

FARE @AC8 Bet 

FRED C3 802 

823 

8e4 

825 

886 

887 

808 

8@9 

ie 

Bit 

Ble 

8123 

FROE 514 

FAGE BBGOB4 815 

FALL Beao 816 

FAIZ 33°F 817 

FAIS 8BCR 818 

FAI7 Fa 819 
FAB BA 

FAS 32°F bee 

FAiB &BCB 821 

FAD F3 822 
FALE AE 


DIC/PC BIOS Useful Procedures V1.9 


10:35:52 01/16/84 PAE 


;Command = initialize 
4...Al = target mode 


;Clear screen 
qeee 

waters 

jee 

iHome the cursor 
Bale 

pees 

ate 


yReturn 


ySave Dx 

j...and Bx 
sPosition from Ax 
jLoad ia 
je» page 
eit 
yRestore 

ea registers 
sReturn 


SLELELEEE REL EE SELES ESTES EL EE EERE EES ELS LEEE ES EASES EERE EEE EE 


SOURCE 
InitVidJmp: 

Mov Ah, VidCadInit 

Int TrapVideo 

Ret 
VideoInit Endp 
; pitetetrictctetensg 
‘ # Clear Screan # 
; SREEEREEHEEEEEEEEE 
ClearScreen Proc Near 

Mov Dx, 184FH 

Yor Cx,Cx 

Mov Ax, @682H 

Hov Bh,7 

Int TrapVideo 

ov Ah, VidCedCurPos 

Mov Dx, @ 

Mov Bh, @ 

Int TrapVideo 

Ret 
ClearScreen Endp 
; EEE EEEEEEEEHEEEEEE 
: # Position Cursor # 
; SEEEEEEPEEEESE SESE 
PositionCursor Proc Near 

Push Dx 

Push = Bx 

ov Dx, Ax 

Hov Ah, VidCadCurPos 

Mov Bh, @ 

Int TrapVideo 

Pop Bx 

Pop Dx 

Ret 
PositionCursor endp 
: # ROM Checksum Procedure: 
q 
ROMCheckBkK Proc = Near 

Mov Cx, 8192 
ROMCheckCx: 

Hov Al,@ 
ROMCheckLoop: 

Add Al, DS: (Bx 

Inc Bx 

Loop ROMCheckLoop 

Or Al, Al 

Ret 
ROMCheckBk Endp 
; JAH EEE EEE 
; # Mexory Test # 
; | 
+ Es:@@ = Start Address # 
; * Returns: * 
; + If Cy =@, NO ERROR # 
: # else Es:Di = addr. # 
' SEE HAHEHGHEEEE EE 
MemoryTest Proc = Near 

Mov Bx, 1824 

Kov Al, @55H 

Xor Di, Di 

Kov Cx, Bx 

Rep Stosb 
Xor Di, Di 
Mov Cx, Bx 
Repe Scasb 


Entry 1 = 8K, Entry @ = (Cx}K # 
EEEAGEALALEEEEEESE EEE EEE EEE EEE EEE EEE EE 


;Length of ROM = 8k 
;Zero the checksum 


;Bx holds the offset 

y..0ine it 

r,,0and loop till all added 
;Affect 2 flag with Al 

je.sand return, if z=1, rom=ok 


sDo a ik Block 
Start with SoH 
yRe-load pointer 
;Re-load count 
jWrite it 


;Re-load pointer 
sRe-load count 
yTest memory with accum 
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8@86/8087/8068 MACRO ASSEMBLER 


LOC OBJ LINE 
FAIF E382 823 
FA2t F9 Be4 
FAe2 C3 825 
FAe3 §26 
FAG3 33°F Z 
FR25 8BCB 826 
FAe7 Fede 829 
FAS F3 B30 
FRA AA 
FACB 33FF 831 
FA2D SBCB 832 
FReF F3 B33 
FA3@ AE 
FA31 E382 834 
FA33 F9 B35 
FA34 C3 836 
FASS 837 
FA35 33arF 838 
FAS7 8BCB 839 
FA39 Beet 840 
FASB F3 B41 
FA3C AA 
FA3D 33FF b4e 
FA3F 8BCB 843 
FAA F3 844 
Fa42 AE 
FAa3 E3be 845 
FA4S F9 Bat 
FAKE C3 84 
FA47 848 
FAAT S3FF 8 
FA49 8BCB 852 
FASB FELB 851 
FA4D F3 852 
FA4E AA 
FAAF 33FF 853 
FAS SBCB 854 
FASS F3 855 
FAS4 AE 
FASS Edge 856 
FAS? F9 857 
FASB C 858 
9 §59 
FAS9 SCce 866 
FASB 854000 841 
FASE BECa 62 
FAGG C3 863 
B64 
865 
aaa 866 
B67 
866 


ASSEMBLY COMPLETE, NO ERRORS FOUND 


DTC/PC BIOS Useful Procedures V1.0 


SOURCE 


TestAA: 


Test@i: 


Testa: 


Rep 


Repe 


Rep 


Repe 


Rep 


Repe 


NoMeuwError: 


MemoryTest 


Bios 


End 


Ends 


Ret 
Endp 


Di, Di 
Cx, Bx 


NoMemError 


Ax, Es 
Ax, 1024 / 16 
Es, Ax 
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gees jump if no error 
jCarry set indicates error 
jee return 


yRe-load pointer 
3Re-load count 
yNext is SoH 
sHrite it 


yRe-load pointer 
sRe~-load count 
sTest memory with accua 


jess jump if no error 
sCarry set indicates error 
jee feturn 


gRe-load pointer 
sRe-load count 

yNext is 1 (tests parity) 
yHrite it 


sRe-load pointer 
yRe-load count 
jlest memory with accum 


fee Juep if no error 
yCarry set indicates error 
ge. return 


3Re-load pointer 

#Re-load count 

Clear memory to zero & test 
sWrite it 


yRe-load pointer 
¢Re-load count 
sTest gesory with accus 


jee. Jump if no error 
;Carry set indicates error 
jee Peturn 


jAdd 2K to sequent register 
j..eUSing paragraphs 

jeceput it back 

yReturn carry clear if no error 
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8086/8087/6088 MACRO ASSEMBLER OTC/PC BIOS Graphic Character Generator V1.0. 18:28:28 01/16/84 PAGE 


IBM PC/XT 6@86/8@87/8@88 MACRO ASSEMBLER Vi.1 ASSEMBLY OF MODULE GRAPHICS 
OBJECT HODULE PLACED IN GRAPHICS. OBJ 
ASSEMBLER INVOKED BY: ASMB6 GRAPHICS. SRC 


LOC OBJ LINE SOURCE 
1 +1 $Title (DTC/PC BIOS eS ai Character Generator V1.2") 
2 +1 $Pagelength (8@) Pagewidth (132) Debug Nogen 
; Name Graphics 
F] 
3 ; Author: Don K. Harrison 
; ; Start date: November 25, 1983 Last edit: November 25, 1983 
18 
11 ; SEEEEELEESEAEEE EES HERE 
le ; # Module Description + 
13 ; SESE EEEEEEESESESES ELE 
14 
15 : This module contains the character generator array used to 
16 } produce character data on a graphics screen, 
17 
14 
19 
rt 
zl 
ze : (c) sal Telecommunications Corporation, 1983 
23 i 11 Rights Reserved 
z4 
Zo $Eject 


8086/8087/8088 MACRO ASSEMBLER  DTC/PC BIOS Graphic Character Generator V1.8. 10:28:28 1/16/84 PASE 


LOC OB LINE SOURCE 


a ; JAE EEE 


# Revision History # 
JEEHEEHHE HEHEHE 


mM 
w 
oe em we 


38 $Eyect 


6086/8087/8088 MACRO ASSEMBLER 


LOC OB! 


LINE 


DIC/PC BIOS Graphic Character Generator V1.2 


SOURCE 


ween oe 


we ne ne 


Bios 


$Eyect 


10:28:28 1/16/84 


SEEEEEEHEEE HEE 
# Public Symbols # 
EEELEEEEEEEEEEEEEEE 


Public VideoGraphicsPointer 
EELSEAELESTETEEEEE 

# Code Segment + 
ESEEEAEEELEEEEEESE 

Segment Comson 


fissume (Cs:Bios 


PAGE 


6086/8087/8088 HACRO ASSEMBLER 


LOC OBJ 


FAGE 


FA76 7E 
FR77 al 
FATS AS 
FA79 81 
FA7A BD 
FA7B 99 
FATC al 
FA7D 7E 


FATE 7E 
FATF FF 
FAO DE 
FABI FF 
FAR? C3 
FAB E7 
FAB4 FF 
FABS 7E 


FAC 12 


FASD 7 


FAIE 12 
FAOF 18 
FARO 38 
FAAI 7C 
FRA2 FE 
FRA 70 
FAA4 38 
FAAS 7¢ 


FAAC 28 
FAAD 88 


LINE 


eh) 
37 


DTC/PC BIOS Graphic Character Generator V1.@. 


SOURCE 
Org 


VideoGraphicsPointer 


@FAGEH 
Label Byte 


@1111118B 
188000018 
101601018 
188808018 
10111101B 


@1L11118B 


011111108 
11111111B 
118110115 
Li111111B 
118008116 
111001118 
111111118 
@1111118B 


011011088 
141111108 
111111188 
111111188 
811111008 


@11111808 
801118825 
O00 180008 
BRBVGEL2B 


001118808 
Q1111188B 
00111880B 
111111188 
11111118 
O1111188B 
021118008 
011111888 


820100008 
080188208 
001118805 
@1111188B 
111111188 
011111088 
001118008 
B1111180B 


880110008 
001111088 
081111005 
@001 18008 
OBOVRABOE 
QB0020208 
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. 382H (Ct) B) 


» 7@3H (Ctl 0) 


y@4H (Ct1 D) 


. 75H (Ctl ED 


;06H (Ct) F) 


;@7H (Ct) 6) 
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8@86/8087/8@88 MACRO ASSEMBLER  DTC/PC BIOS Graphic Character Generator V1.0 10:28:20 01/16/84 PAGE 45 


LOC OB] LINE SOURCE 
13 $Eject 


6086/8087/8858 MACRO ASSEMBLER 


LOC OE! LINE 
FARE FF 131 
FRAF FF 132 
FABR E7 133 
FAB C3 134 
FAB C3 139 
FABS E? 136 
FAB4 FF 137 
FABS FF 138 

139 
FABRE 28 148 
FAB] 3C 141 
FABB 66 142 
FABY 42 143 
FABR 42 144 
FABB 66 145 
Fag 3C 146 
FABD 80 147 

148 
FABE FF 149 
FABF C3 158 
FAC 99 151 
FAC! BD 152 
FACe BD 133 
FACS 99 154 
FAC4 C3 195 
FACS FF 156 

157 
FAC6 QF 158 
FACT 87 159 
FACS OF 168 
FAC 7D 161 
FACA CC 162 
FACB CC 163 
FACT CC 164 
FACD 78 165 

166 
FACE 3C 167 
FACF 66 168 
FADG 66 169 
FAD 66 178 
FADe 3C 171 
FADS 18 172 
FAD4 7E 173 
FADS 18 174 

175 
FAD6 3F 176 
FAD? 33 177 
FADS 3F 176 
FADI 38 179 
FADA 38 188 
FADB 78 181 
FADC F8 182 
FADD E@ 183 

184 
FADE 7F 185 
FADF 63 186 
FAE® 7F 187 
FAEL 63 188 
FRE2 63 189 
FRES 67 198 
FAE4 E6 191 
FAES C8 192 

193 
FRE6 99 194 
FAE7 5A 195 
FAES 3C 196 
FAEQ E7 197 
FAER E7 196 
FREB 30 199 
FAEC SA 200 
FRED 99 281 

ee2 


DTC/PC BIOS Graphic Character Generator V1.2. 


SOURCE 


$Eject 


WLLLL1118 
111111118 
111901118 
118080118 
110080118 
111801115 
LL1111115 
LI111111B 


GORH0000B 
001111008 
011081108 
010000108 
010800108 
@11881 108 
081111808 
Q0eVEEEE 


111111118 
118000118 
108110018 
101111818 
101111018 
100118038 
110008118 
L11L1111B 


@0001111B 
O00001115 
@0001111B 
O1111181B 
110011008 
110011808 
110011888 
011110008 


001111008 
011001188 
011001188 
011001108 
021111006 
002118005 
B1111110B 
020118808 


OBi11111B 
00110011B 
OG111111B 
001 182008 
081189008 
011100008 
111188808 
111888888 


OLi11111B 
011000118 
OiLi1i11B 
011000118 
011000118 
O1180111B 
11180110B 
110880808 


108110018 
010110188 
001111805 
111801118 
111001118 
001111808 
010110188 
100112018 


10:28:28 1/16/84 PAGE 


sDQ000000 ;@6H (Ctl H) 
00000000 


feetsnaes s@9H (Ctl 1) 


s0000000 ;@AH (Ctl J) 


je... 0000 3@BH (Ctl K) 
000 


3. 0000.. 3@CH (Ct) L) 


/O00000 ;@DH (Ctl M) 


;D000000 ;@EH (Ctl N) 


30..00..0 sQFH (Ctl O) 


6 


8086/8087/8088 MACRO ASSEMBLER 


LOC O87 LINE 
FREE 88 283 
FAEF E@ 284 
FAFR FB 205 
FAFi FE 206 
FAFe FB 287 
FAF3 E@ 208 
FAF4 82 209 
FAFS @@ 218 
it 
FAFG 82 el2 
FAF7 QE 213 
FAFA 3E 214 
FAF9 FE 215 
FAFA 3E 216 
FAFB QE 217 
FAFC 82 218 
FAFD @@ 219 
228 
FAFE 18 221 
FAFF 3C 
FB@2 7E 223 
FB@1 18 224 
FB@2 18 eco 
FB@3 7E 226 
FBB4 30 227 
FBS 18 228 
229 
FROG 66 238 
FBQ7 66 231 
FBS 66 eae 
FB29 66 233 
FEA 66 234 
FBQB 82 235 
FBC 66 236 
FROD 88 237 
238 
FB@E 7F 239 
FBQF DE 248 
FBid DB 241 
FBil 7B 242 
FBie2 iB 243 
FBi2 1B 244 
FBi4 1B 245 
FB15 @2 246 
247 
FB16 3E 248 
FBI7 63 249 
FBI 38 208 
FB19 60 est 
FBIA 6C 202 
FBIB 38 253 
FBIC CC 234 
FBID 78 235 
206 
FBIE 88 297 
FBIF 8 208 
FBed 82 239 
FBe1 88 260 
FBee 7E 261 
FB2e3 7E 2be 
FB24 7E 263 
FB25 88 264 
265 
FB26 18 266 
FBe7 3C 267 
FB28 7E 268 
FB29 18 269 
FBER 7E 278 
FBeB 3C 271 
FBeC 18 272 
FB2D FF 273 
274 


DTIC/PC BIGS Graphic Character Generator V1.0. 


SOURCE 


$Eject 


1GG00R00B 
111888088 
11111@@QB 
111141188 
111118008 
111088805 
108008805 
GORAGHGDB 


920000108 
B0G01110B 
081111186 
411111188 
00111118B 
000011108 
800000105 
QBOVVEGB 


0201 18808 
001111088 
O1111118B 
820110808 
G00 18088 
O1111110B 
98111128B 
000118808 


011601188 
011001108 


Bii111118 
118110118 
11011811B 
@i111011B 
000110118 
000110118 
080110115 
BDVBBEVRB 


001111108 
811800118 
821118808 
011811005 
011011008 
801110008 
110011008 
011118808 


O1111112B 
@1111118B 
O1111118B 
880000008 


8821 18808 
001111808 
O1111112B 
800110088 
Q11111188 
00111180B 


080110088 
Li11i111B 


pO ecccne 


Powecsels 
boxes . 
0000000. 
3. 00000. 
pears s 
geeeces a 


ry 
guvenesen 


th es s 
;.00. .00. 


+... 00. 00 


00000. 


100.00. . 
00. .00 


f 
q 
H 
4 
: 
4 
: 
4 
; 
q 
: 
1 
4 
: - 
2 

q 

; 

simenients 
§ awileiere 


Svisloeue acne 


10:28:28 @1/16/84 PAGE 


y10H (Ct) P) 


s1iH (Ctl @) 


312k (Ctl R) 


13H (Ctl 5) 


s14H (Ct1 T) 


315H (Ct1 u) 


s16H (Ctl V) 


17H (Ctl W) 
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8086/8287/H068 MACRO ASSEMBLER 


LOC OBJ LINE 
FBEE 18 e793 
FEOF 3C 276 
FH3@ 7E e77 
FBSi 18 278 
FB32 18 e79 
FB23 18 280 
FB34 18 281 
FR3S @8 eb 
283 
FE36 16 284 
FBS7 18 285 
FB38 18 PEG 
FB39 18 287 
FB3A 7E 288 
FBSB 3C 289 
FE3C 18 298 
D @@ 21 
292 
FBSE 08 293 
FBSF 18 294 
FB4O @C 295 
FB41 FE 296 
FBa2 OC 297 
FB43 18 298 
FRA4 @2 299 
FB45 88 388 
301 
FHAG 68 302 
FB47 30 Sts 
FB4G 62 384 
FB49 FE 
FBAA 62 386 
FB4B 38 387 
FRAC Qa 308 
FB4D @@ 329 
318 
FEAE 02 3il 
FB4F 88 sie 
FES@ C8 313 
FBS1 C8 314 
FEa2 CO 315 
FBS3 FE 316 
FBS4 88 317 
FBOS 80 318 
319 
FBS6 80 320 
FBS? 24 321 
FBS6 66 22 
FBO9 FF 323 
FRSA 66 324 
FBSB 24 325 
BSC 68 326 
FBSD 88 37 
328 
FBSE 0 329 
FROF 18 338 
FBG 3 331 
FBGi 7E 332 
FBG2 FF 333 
FB63 FF 4 
FB4 82 339 
FBES @8 336 
337 
FBG6 66 328 
FBG? FF 339 
FBG&B FF 348 
FBG9 7E 341 
FBGA 3C 342 
FBBB 18 343 
FBGC @ 344 
FRED 82 345 
346 


DTC/PC BIGS Graphic Character Generator V1.0. 


SOURCE 


$Eject 


890118208 
801111808 
O1111118B 
G801 18888 
880112008 
G2G11088B 
8801 10805 
Q2BR0000 


820110008 
#801 18888 
980118808 
9001 18088 
@1111118B 
001111695 
G021 10088 
BBRBVEGAB 


QO2EOBOOB 
020110028 
88001100 
111111188 
80001 1806 
880110008 
G0G808808 
BOGGERLGB 


@8000000B 
801180008 
811888028 
111111188 


111111188 
G0G0000B 
BBBB2V0B 


QogRRe005 
881001003 
011001106 
111111118 
611801186 
001201805 
GRAGVVRUB 
BVBGVSVAB 


HOVBBEVOL 
000118808 
601111008 
O1111110B 
11411111B 
111111118 
eeee0a00B 


Q88GR000B 


820080008 
L1111111B 
111111118 
Q1111110B 
00111100B 
000118805 
Q2aeQOGOB 
BOAHGIBOE 


. 
qgeea ean 


feecasens 
jese aes 
j....00.. 
0) ; 
geaee ee 
fees ie) 


2 
Qeusnceua 


y+ 00,... 


feaccouce 
quseccens 
t eaesaug 
q peseeen 
$00. uaan 
;0000000. 
qeeceeases 


3. 00..00. 
3.00,.0., 
fevesecee 


gee OQ... 


s 
qursacece 


10:28:28 81/16/84 PAGE 


s18H (Ctl x) 


j19H (Ctl Y) 


y1AH (Ctl Z) 


y1BH (Ctl 2) 


s1CH (Ctl \) 


s1DH (Ctl 1) 


y1EH (Ctl *) 


8 


6286/8087/8088 MACRO ASSEMBLER 


LOC OBJ LINE 
FBGE 80 347 
FROF 8a 348 
FE7O 08 349 
FB71 80 308 
FB72 08 Bi 
FB73 80 $e 
FB74 8 388 
FB75 82 354 

355 
FB76 30 356 
FB77 78 357 
FB7B 78 358 
FB79 30 309 
FB7A 30 360 
FB7B 86 361 
FB7C 30 de 
FB7D 06 362 

364 
FB7E 6C 365 
FB7F 6C 366 
FBae 6C 367 
FBaL @a 368 
FEE Oe 369 
FBZ 82 378 
FBB4 00 371 
FBS 08 372 

373 
FBBG 6C 374 
FBB7 6C 375 
FBS FE 376 
FBS 6C 377 
FBBA FE 378 
FBQB 6 379 
FRAC 6C 380 
FRED 02 381 

382 
FBSE 38 383 
FBOF 7C 384 
FB9@ Ce 285 
FB91 78 386 
FB92 OC 387 
FB93 FS 388 
FES4 38 389 
FBIS 88 398 

391 
FBG G8 392 
FB97 CE 393 
FB98 CC 394 
FB99 18 , 395 
FBSA 38 396 
FB9B 66 397 
FBSC C6 398 
FBSD 88 399 

420 
FBIE 38 421 
FBSF 6C 4 
FBAR 38 403 
FBAl 76 424 
FBAe DC 485 
FBAZ CC 496 
FBA4 76 487 
FBAS @ 408 

489 
FRAG 68 418 
FBA7 60 411 
FBAG C8 4le 
FBAS 60 413 
FBAA 08 414 
FBAB 8@ i ts) 
FRAC 20 416 
FRAD 82 417 

418 


DIC/PC BIOS Graphic Character Generator Vi.@ 


SOURCE 


$E ject 


081188808 
01111820B 


011811805 
011011808 
011011088 


011011808 
011011888 
111111188 
011011828 
111111108 
011811828 
Q1101186 
@B8SG000B 


001128805 
Q1111188B 
118888805 
011110808 
800211808 
111118888 
08118900 
Q80200208 


aoeeeeeeB 
118801188 
118811808 
000118008 
881 1@800B 
011881188 
118801188 
GBSCRR0EB 


001118808 
011011908 
001118828 
811101188 
110111808 
118811888 
0111011085 
QeReRe2 


ares <istaves 
Bain aaa 
quaensene 
qeeorciee 
A cravs ahalee’s 
Sea jailer 
ace aiaiele's 


3..00..0- 
+, G000... 
*, 0000... 


gebececun 
feaeicanate 
eee cenee 
ons cieaies 


. 
geovesnen 


je DOr en. 


Hg a6 
300. wee0s 


joes sO. 


7;00...00. 


00. 00.. 


3 

; 

3 

3.000. 00. 
300. 0 

H 

3 

H 


s 
guerescas 


10:28:28 01/16/84 PAGE 


3284 (Space) 


y21H (1) 


g2gH (#) 


s24H (8) 


seoH (Percent) 


y2bH (&) 


127H (7) 
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8886/6087/8085 MACRO ASSEMBLER 


LOC OBy LINE 
FBAE 18 419 
FBAF 38 420 
FEBR Ge 4cl 
FBB1 6@ 42 
FEB 68 423 
FBBS 30 424 
FBB4 18 425 
FBBS 89 426 
427 

FBBG 68 426 
FBB7 3t 429 
FBBS 18 438 
FBBY 18 431 
FBBA 18 432 
FBBB 38 433 
FBBC 60 434 
FBBD @@ 435 
436 

FBBE 88 437 
FBBF 66 438 
FRC 3C 439 
FBC! FF 448 
FBte 3C 441 
FBC3 66 44 
FBC4 08 443 
FBCS 88 444 
445 

FBCE @@ 446 
FBC7 32 447 
FRCS 30 446 
FBC9 FC 449 
FRCA 3@ 458 
FBCB 30 451 
FBCC 00 452 
FBCD $2 433 
454 

FRCE @2 495 
FBCF 8 436 
FBD2 08 457 
FBD1 @2 406 
FBDe 0 499 
FBD2 38 460 
FBD4 30 461 
FBDS 68 462 
463 

FBD6 92 464 
7 @¢ 465 
FBDB 2@ 466 
FBD9 FC 467 
FEDA @@ 468 
FBDB 28 469 
FBDC 88 478 
FBDD 88 471 
472 

FBDE 82 473 
FBDF @@ 474 
FRE® 02 413 
FBEL 476 
FRE2 82 477 
FBE3 30 478 
FBE4 30 479 
FRES 88 480 
481 

FBEG @6 482 
FBE7 aC 483 
FBEB 18 44 
FBE? 38 485 
FBEA 62 4665 
FREB CQ 467 
FBEC 48 4B8 
FRED Q@ 489 
498 


DIC/PC BIOS Graphic Character Generator V1.8. 


SOURCE 


$Eject 


8021 16088 
001186028 
011680808 
011882208 
011008805 
801 108088 
880118905 
G8eC00e08 


811208008 
881 180088 
800116005 
820118008 
002110908 
001100808 
11000885 
GOVBORBBE 


GSOBBL0EB 
011001188 
681111808 
LU1111118 
001111085 
Q1100110B 
QBeRReRER 


880001108 
800011008 
820118928 
00118088 
011808805 
118800005 
18QBC0OB 
GVeeVVEEB 


jee OO... 328H (1) 


3-O0..0.. F29H ()) 


Seeeceaee yeAH (#) 


soeee G2BH (+) 


raeeeaes seCH (,) 


. y2FH (/) 


10:26:20 81/16/84 PAGE 


18 


8086/8087/8888 MACRO ASSEMBLER 


LOC OBy LINE 
FREE 7C 491 
FBEF C6 492 
FBF@ CE 493 
FBF1 DE 494 
FBFe Fb 499 
FBF3 EG 496 
FBF4 7C 497 
FBFS @@ 498 

499 
FBFG 38 380 
FRE? 7@ 301 
FBFE 30 502 
FBF9 30 583 
FBFA 30 504 
FEFB 38 585 
FBFC FC 306 
FBFD 80 597 

308 
FBFE 78 389 
FBFF CC 318 
FC@@ aC oli 
FC@1 38 Sle 
FC@2 68 513 
FC@83 CC 314 
FC@4 FC 315 
FC@S 80 316 

317 
FC@6 78 518 
FC@7 CC 519 
FC@S QC 528 
FCQ3 38 el 
FC@A @C jee 
FC@B CC s23 
FCOC 78 524 
FCQD 8 529 

o26 
FO@E 1C S27 
FCOF 3C o28 
FC1@ 6C 523 
FC11 CC 330 
FCi2 FE dal 
FC13 @C 532 
FC14 1E 333 
FC15 8 534 

535 
FCi6 FC 336 
FCi7 C@ 537 
FCi8 Fa 338 
FC19 @C 539 
FCIA @C 348 
FCiB CC 541 
FCIC 78 s42 
FCID 88 543 

a44 
FCIE 38 545 
FCIF 68 346 
FCed C8 347 
FCe1 F8 548 
FCe? CC 349 
FC23 CC 358 
FCe4 78 Sal 
FC2S 88 doe 

903 
FC26 FC Jo4 
FCe7 CC Sao 
FC2B BC Sob 
FC29 18 597 
FCA 38 556 
FC2B 30 509 
FC2C 38 568 
FCeD 88 561 

562 


DTC/PC BIOS Graphic Character Generator V1.0. 


SOURCE 


$E ject 


011111088 
118001188 
110811188 
110111108 
111101188 
111881188 
011111008 
GBHRGIIEB 


801168885 
811188825 
821160008 
201 120028 
001108005 
#01 18820B 
11111100B 
BVSESBAEB 


811118088 
110011808 
00031 182B 
001118288 
811808008 
118311868 
11111180B 
G80R0080E 


011110888 
118011008 
000011808 
001112808 
802011008 
110011888 
011118888 
HBBVALLSE 


800111888 
00111188b 
01181188B 
118011008 
411111198 
820011008 
00011110B 
@0000008 


111111008 
118008008 
111110808 
08891 1808 
88001 100B 
110011008 
011119888 
QVRERVEIB 


001110828 
011802008 
118880828 
111118808 
11881108 
118811088 
011118008 
QBAVVVSOB 


111111808 
110611098 
800011008 
8201 10808 
021128005 
061 1@B88B 
081180088 
RoABDeRAB 


. yolk 


000... 33H 


» 34H 


36H 


337H 


(@) 


(2) 


(3) 


(6) 


10:28:28 01/16/84 PAGE 


il 


8086/8087/8088 MACRO ASSEMBLER 


LOC OBJ LINE 
FCOE 79 563 
FCF CC 564 
FC30 CC 565 
FC31 78 566 
FC32 CC 567 
FC33 CC 568 
FC34 78 569 
FC35 @8 570 

571 
FC36 78 572 
FC37 CC 573 
FO36 CC 574 
FC39 7C 575 
FC3A aC 576 
FC3B 18 577 
FC3C 70 578 
FC3D @@ 579 

50a 
FC3E 08 5a 
FC3F 38 582 
FCSO 32 583 
FCAI 0 504 
FCA2 00 585 
FC43 30 586 
FC44 30 587 
FCAS 8 586 

589 
FCAG 22 590 
FCAT 30 591 
FCA 30 592 
FCAS 98 593 
FCAA 0 594 
FC4B 30 595 
FCAC 30 596 
FCAD 60 597 

598 
FCAE 16 599 
FCAF 30 602 
FCSO &@ 601 
FoS1 C8 602 
FCS2 60 603 
FCS3 3¢ 604 
FCS4 18 605 
FESS @@ 606 

607 
FCSE 00 608 
FCS7 90 609 
FCS FC 61d 
FESS 00 bil 
FCSA 2 612 
FESB FC 613 
FCSC 20 614 
FCSD 9@ 615 

B16 
FOSE 60 617 
FCSF 38 618 
FCG 18. 619 
FCG @C 620 
FCG2 18 621 
FCG3 30 b2e 
FC64 62 624 
FCES @@ 624 

625 
FCE6 78 626 
FC67 CC 627 
FC6A OC 628 
FCES 18 625 
FCBA 30 630 
FCEB 90 631 
FCEC 3¢ 632 
FCB) @@ 633 

634 


DTC/PC BIOS Graphic Character Generator V1.0- 


SOURCE 


$E ject 


011110005 
118811@@B 
116011808 
O1111882B 
118611888 
118811808 
011110008 
BB0000088 


011118808 
110811888 
110811085 
O11 111808 
020011808 
08911823 
011180088 
GSLGEEZE 


111111008 
BBeB2RRGB 
800000008 
111111008 
G2HORR20B 


BUSEGB22B 


911088808 
001180008 


08011880) 
001180808 
01 188880B 
QOG02800B 


911118808 
11€8118B 
90811088 
802118805 
001180888 
BaG20008 
001108903 
Q80880008 


y38H (8) 


339H (9) 


y3AH (3) 


+3BH (3) 


.y3cH 


33DH {=) 


. 36H 0) 


j3FH (2) 


10:28:20 01/16/84 PAGE 12 


6056/8087/8088 MACRO ASSEMBLER 


LOC OBJ LINE 
FC6E 7C 635 
FCEF C6 636 
FC7@ DE 637 
FC71 DE 638 
FC7e DE 639 
FC73 C8 640 
FC74 78 641 
FC75 88 642 
643 
FC76 38 644 
FC77 78 645 
FC78 CC 646 
FC79 CC 647 
FC7A FC 648 
FC7B CC 649 
FC7C CC 658 
FC7D @@ 651 
652 
FC7E FC 653 
FC7F 66 654 
FCAG 66 655 
FC81 7C b 
FCS2 66 657 
FC83 66 658 
FCB4 FC 659 
FC8S @@ 660 
661 
FC86 3C 662 
FC87 66 663 
FCB C8 664 
FC89 Ce 665 
FCGA Ca 666 
FCGB 66 667 
FCBC 3C 
FC8D @@ 669 
670 
FCAE F8 671 
FCF 6C 672 
FC9@ 66 672 
FC91 66 674 
FC92 66 675 
FC93 6C 676 
FC94 F& 677 
FC9S @@ 678 
679 
FC96 FE 680 
FC97 62 681 
FC98 68 682 
FC99 78 683 
FCIA 68 684 
FCB 62 685 
FCOC FE 686 
FCID 88 687 
688 
FC9E FE 689 
FCF 62 692 
FCAG 68 691 
FCAL 78 692 
FCA2 68 693 
FCA 60 694 
FCA4 F@ 695 
FCAS 82 696 
697 
FCAG 3C 698 
FCAT 66 699 
FCAS CO 700 
FCAY C@ 784 
FORA CE 782 
FCAB 66 783 
FCAC 3E 704 
FCAD @8 785 
706 


DIC/PC BIOS Graphic Character Generator V1.@- 


SOURCE 


$Eject 


011111008 
110801188 
110111108 
110111185 
110111106 
118880008 
Q1111880B 
ay 


021126805 
01111880B 
110011005 
110011@@B 
111111805 
110011888 
11001 1888 
QBBORRR2B 


11111188 
011001 1@B 
011001 108 
O1111180B 
011081188 
011681188 
111111808 
800820008 


001111888 
01108118 


111118888 
011811888 
011001105 
011801108 
011081108 
011811006 
111118888 
082000008 


111111188 
011000108 
011810008 
911110008 
011810085 
911880108 
111111108 
008880008 


111111188 
811080183 
011818008 
011118808 
211018088 
Q11800208 
111180008 
GVPGRIVOB 


801111008 
011001108 


011821168 
001111188 
BVEVVAEB 


300..00.. 


s4@H (@) 


. 41H (A) 


» 74eH (B) 


» fA3H IC) 


» 944 (D) 


« 45H (E) 


. f4BH (F) 


47H (6) 


10:28:28 01/16/84 PAGE 
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8@86/8087/8@88 MACRO ASSEMBLER © DTC/PC BIOS Graphic Character Generator V1.2 10:28:28 @1/16/84 PAGE 14 


Loc OBJ LINE SOURCE 
FCAE CC 787 Db 110811805 300..00.. 3484 (H) 
FCAF CC 708 Db 118011008 ;00..00.. 
FCR@ CC 789 Db 110011088 300..00.. 
FCBi FC 718 Db 111111008 ;000000, . 
FCbe CC Til Db 110011008 300..00.. 
FCB3 CC 712 Db 11801 1@0B ;00..00.. 
FCB4 CC 713 Db 110811005 300..00.. 
FCBS 8 ae Db B8B00005 faites 
FCBG 78 716 Db O1111800B 7-D000... j49H (1) 
FCB7 38 17 Db 001108008 jx QO...» 
FCBS 38 718 Db 02118000 ; 
FCB9 38 N19 Db 001100002 je D0. 
FCBA 38 728 Db 001100008 gee QDiens 
FCBB 3¢ Tel Db 001180028 jreO0e ves 
FCBC 78 Tee Db 011110885 30000... 
FCBD 8 ie Db BVBeoReeE fusvecess 
FCBE 1£ 723 Db 008111185 jee 0000. j4AH (7) 
FCBF @C T26 Db Q0001 1288 Foe neers 
FCC® @C 727 Db 00001 1008 jeoeeDe. 
FCC1 @C 728 Db 00021 100b Jee oellQ.s 
FCC2 CC 729 Db 110811805 300. .00.. 
FCC3 CC 738 Db 110011828 300..00.. 
FCC4 78 731 Db 011110808 3.0000... 
FCCS @@ ie Db 008880005 Jouewnee 
FEC6 £6 734 Db 111001105 y000..00. ;4BH {K) 
FCC7 66 733 Db 011001188 ;.00..00. 
FCC8 6C 736 Db Q11011885 ;-00.00.. 
FCC9 78 737 Db 011110008 3.0000... 
FCCA 6C 738 Db 011011888 3. 00.00.. 
FCCB 66 739 Db 911001108 ;.00..00. 
FCCC £6 748 Db 111001188 3000. .00. 
FCCD 8 be Db BdOKREOE Jusieeeess 
FCCE F@ 743 Db 111188008 30000.... 34CH (L) 
FCCF 68 744 Db Q1 1888008 jo OD. oe 
FCD® 68 7435 Db Q1 1980008 3.00. ..04 
FCD1 60 746 Db 011880005 ye O0..205 
FCDe 62 TAT Db 811820108 3. 00...0. 
FCD2 66 748 Db 011001128 ;.00..00. 
FCD4 FE 74S Db 111111108 0000000. 
FCDS 88 @ Db GBVOVAVSE Piety ss see 
t 

FCD6 C6 Te Db 110001188 y00...00. s4DH (M) 
FCD? EE 733 Db 111011188 3000, 000. 
FCD6 FE 734 Db 111111188 ;0000000. 
FCD9 FE 733 Db 111111188 ; . 
FCDA D6 736 Db 110181198 300. 0.00. 
FCDB C6 Ta? Db 118801185 700...00. 
FCDC C6 738 Db 11800118 300...00. 
FCDD @@ a Db BOOROSOGE a reieis see 
FCDE C6 761 Db 118801188 300...00. 34EH (N) 
FCDF E6 Tbe Db 111001128 7000..00. 
FCE® F6 763 Db 11110118B 0000. 0. 
FCE1 DE 764 Db 11011118B 300. 0000. 
FCE2 CE 765 Db 110811108 700. .000. 
FCE3 Ch 766 Db 110081108 3G0...00. 
FCE4 C6 767 Db 110001105 300...00. 
FOES @¢ 3 Db BBVEGVABE Jeconazes 
FCE6 38 77 Db 001118008 ye 000... s4FH (0) 
FCE7 6C Tit Db 011011008 ;.00.00.. 
FCES C6 Tle Db 118001185 300...00. 
FCES C6 713 Db 110001188 300...00, 
FCER C6 TT4 Db 110801108 300...00. 
FCEB 6C 113 Db 011011008 3.00.00... 
FCEC 38 TH Db 821118808 :,. 000... 
FCED 80 7 Db @22800008 feasceses 

778 $Eject 


8086/8087/8088 KACRO ASSEMBLER 


LOC OBJ LINE 
FCEE FC 713 
FCEF 66 788 
FCF@ 66 781 
FCF1 7C 782 
FCFe 68 783 
FCF3 68 784 
FCF4 FO 785 
FCFS 98 786 

787 
FCFG 78 788 
FCF7 CC 789 
FCFa CC 798 
FCF9 CC 731 
FCFA DC 792 
FCFB 78 793 
FCFC 1C 794 
FCFD 88 795 

756 
FCFE FC 197 
FCFF 66 798 
FDO 66 799 
FD@1 7C 8e8 
Fbe@2 6C 881 
FD@3 66 82 
FD@4 Eb 883 
FDS 88 804 
FD@G 78 806 
FDa? CC 887 
FDaS £8 808 
FDQ9 78 889 
FD@A 1C 818 
FD@B CC il 
FDRC 78 le 
FDSD 88 813 

B14 
FD@E FC 815 
FDOF B4 16 
FDI@ 32 817 
FD11 32 818 
FDI2 38 819 
FDI3 38 828 
FD14 78 B21 
FDIS @ B22 

823 
FDi6 CC B24 
FD17 CC B25 
FDi8 CC 826 
FDi9 CC 827 
FDIA CC 826 
FDIB CC 829 
FDIC FC 830 
FDID @@ 831 

B32 
FDIE CC 833 
FDIF CC 834 
Foe’ CC 835 
FD21 CC 836 
FOze CC 837 
FD22 78 838 
FD24 32 439 
FD2S 88 B48 

841 
FD26 C6 B42 
FD27 C6 B43 
FD28 Cé 844 
FD29 D6 B45 
FDA FE B46 
FD2B EE 847 
FDeC Cé 848 
FD2D 8 B49 

850 


DIC/PC BIOS Graphic Character Generator V1.2 


SOURCE 


$Eject 


111111888 
@1188110B 
011081183 
Q1111108B 
811800003 


011118288 
118011888 
110118eb 
118811808 
118111688 
811118808 
000111888 
eReeseseD 


111111888 
911081188 
011681188 
@1111120B 
@1181188B 
811081188 
111081185 
BOGIAV0B 


811118808 
11881185 
111088808 
011188808 
00011120B 
118811808 
011118888 
880080008 


111111888 


11881188 
118811888 
110211808 
118811888 
118011086 
110811888 
1111118@B 
BVASIIOB 


118811686 
118811885 
110811828 
118811808 
11081188 
@1111880B 
801100888 
QOG020008 


118801188 
118201188 
110881185 
110181186 
111111188 
11181118B 
11081108 
BeRARR20B 


;.00,.00, 
7000. .00. 


;00..00.. 
7.0000... 


. 
geeerecee 


;O00000.. 
30.00.0.. 
yee DQeaes 


: 
gee gees 
gee ODiees 
: 

yee O0, 00. 
. 

0000... 


300...00. 


3a0H (P) 


;51H (0) 


yoeH (R) 


353H (5) 


s54H (T) 


juoH (U) 


goo {¥) 


yovH (W) 
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8086/8087/8088 MACRO ASSEMBLER 


LOC OBJ LINE 
FD2E C6 851 
FD2F Cé 852 
FD3@ 6C 853 
FD31 38 854 
FD32 38 855 
FD33 6 836 
FD34 C6 857 
FD35 08 858 
859 
FD36 CC 860 
FD37 CC B61 
FD38 CC bbe 
FD39 78 863 
FD3A 32 864 
FDSB 38 865 
FD3C 78 866 
FD3D 08 867 
868 
FD3E FE 869 
FD3F C6 878 
FD4@ aC 871 
FD4t 18 872 
FDAZ 32 873 
FD43 66 874 
FD44 FE 875 
FD4S 80 876 
877 
FD4G 78 878 
FD47 68 879 
FD48 68 880 
FD49 68 881 
FDAA 68 882 
FD4B 68 883 
FD4C 78 884 
FD4D 82 883 
886 
FD4E CO 887 
FD4F 62 888 
FDS@ 38 889 
FDS1 18 ) 
FDS2 @C 891 
FDS3 96 92 
FNS4 G2 893 
FDSS 8 894 
895 
FDS6 78 896 
FDS7 18 897 
FDSS 18 896 
FDS9 18 899 
FDSA 18 588 
FDSB 18 901 
FDSC 78 902 
FDSD @0 903 
984 
FDSE 18 985 
FDSF 38 906 
FD69 6C 927 
FD61 C6 988 
FD62 80 989 
FES 08 918 
FD64 00 911 
FD65 88 912 
913 
FD66 88 914 
FDG7 @@ 915 
FDH8 02 916 
FDG9 82 917 
FDA 88 918 
FDSB 02 919 
FD6C @8 928 
FD6D FF 921 
9c 


DTC/PC BIGS Graphic Character Generator V1.8. 


SOURCE 


$Eject 


11808118B 
110901188 
811011808 
001118085 
081110008 
811011088 
110081 1@B 
800000008 


11@81180B 


118021 18B 


@1100118B 
111111185 
GBBVSORRE 


Q11118885 
81 100082B 
011800885 
@1 1008805 
811008025 
811200008 
011110008 
BBBORVBE 


118880008 
011808808 
801100808 
0801 1EQ8B 
800211805 
OVOR2118B 
000000108 
G800G8008 


011110808 


811118808 
BOARREBAE 


000100088 
B81 1 1889B 
81101188B 


O8e8R080B 
LALL1111B 


0000000. 


2 OAH 


yoCH 


» FODH 


10.9) 


{Y) 


(2) 


(0) 


(/) 


(1) 


(*) 


C) 
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8086/8087/8088 HACRO ASSEMBLER 


LOC OBJ LINE 
FDGE 32 923 
FDEF 38 324 
FD7@ 18 925 
FD71 QQ 926 
FD72 80 927 
FD73 88 928 
FD74 02 929 
FD75 @8 938 
931 
FD76 88 932 
FD77 8@ 933 
FD78 78 934 
FD79 QC 935 
FDTA 7C 936 
B CC 937 
FDIC 76 938 
FD7D a 939 
948 
FDVE E@ 941 
FD7F 68 942 
FDA2 68 943 
FD81 7C 944 
FDa2 66 945 
FDGZ 66 946 
FDa4 DC 947 
FD8S 90 948 
949 
FDS6 82 958 
FDE7 08 951 
FDa8 78 95¢ 
FD89 CC 953 
FDBA CO 954 
FD8B CC 955 
FD&C 78 956 
FDSD 8 937 
958 
FDBE 1C 959 
FD@F @C 968 
FD9@ @C 961 
FD91 7 962 
FD92 CC 963 
FD93 CC 964 
FD94 76 965 
FD95 80 966 
967 
FDI6 ee 966 
FD97 80 9 
FD9& 78 978 
FD99 CC 971 
FDIA FC 972 
FD9E CO 973 
FDIC 78 974 
FD9D 88 975 
976 
FDSE 38 977 
FDOF 60 978 
FDAB 60 979 
FDAL F@ 
FDR2 68 981 
FDAZ 68 982 
FDA4 FO 983 
FDAS 98 984 
985 
FDAG 8 986 
FDAT 8 987 
FDA 76 988 
FDAY CC 989 
FDAA CC 998 
FDAB 7C 991 
FDAC @C 992 
FDAD F8 993 
994 


DIC/PC BIOS Graphic Character Generator V1.0 


SOURCE 


$Eject 


281108008 
001100208 
8201 10808 
CVBELVAAE 
000000008 
VBGVVVVOB 


GoeAeeveb 


Q8b0800B 
011118808 
020011008 
011111088 
110011885 
011101108 
GOBVIAVVE 


111880805 
811808008 
811080805 
Q1111188B 
011081188 
811001105 
11011188 
GdAVBLORB 


QVBABOE 


00011100B 
000011088 
280011008 
81111108B 
118811088 
11811688 
@11101188 
GBGHBOBOB 


GORBOR00B 
QB2AGRRE 
011118805 
110011@8B 
111111888 
118808808 
011118888 
GVRSEBAB 


831118808 
911011888 


11110005 
BVOAREBE 
QVROOROIE 
QBRCRGIOB 
011101108 
118811008 
118811898 
@1111188B 


000011005 
111118888 


ye 00... 


: 
jo O0.00- 
qaes eas 
Jocconens 
fecsecace 


eee 


. 
qureesnee 


ry 
guteccaus 
Qeeersece 


ge Bae 


3.000. 00. 


700. 000. . 


jeseesace 


* 
geresecas 


0000... 


. 
gesencane 


. 
gueessenes 
. 


700. .00.. 
100. .00.. 
 OO000.. 


. 
geese ze 


68H 


61H 


62H 


(*) 


(a) 


(b) 


(c} 


(a) 


(e) 


(f) 


(g) 
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8086/8087/8088 KACRO ASSEMBLER 


LOC OB! LINE 
FDAE Ee 995 
FDAF 69 996 
FDB@ 6C 997 
FDB1 76 998 
FDBe 66 995 
FDB3 66 1882 
FDB4 £6 1881 
FDBS 28 1082 

1803 
FDBG 2 1084 
FDB7 @2 1885 
FDBS 72 1886 
FDBY 38 1887 
FDBA 38 1888 
FDBB 38 1809 
FDBC 78 1018 
FDBD @2 1811 

1012 
FDBE @C 1013 
FDBF 8@ 1014 
FDC® ec 1815 
FDC @C 1816 
FDCe OC 1017 
FDCS CC 1018 
FOC4 CC 1019 
FDCS 78 1022 

1021 
FDCE £0 1022 
FDC? 68 1823 
FDCA 66 1024 
FOC 6C 1025 
FDCA 78 1826 
FDCE 6C {027 
FDCC E6 1028 
FDCD 88 1829 

1838 
FOCE 78 1031 
FDCF 2@ 1632 
FDD8 38 1833 
FDD1 38 1034 
FDD2 32 1@35 
FDDZ 38 1036 
FDD4 78 1037 
FDDS @@ 1038 

1833 
FDDE 82 1848 
FDD7 08 1041 
FDDS CC 1042 
FDD9 FE 1043 
FDDA FE 1044 
FDDB Dé 1845 
FDDC C6 1046 
FDDD &@ 1047 

1846 
FDDE 08 1049 
FDDF 2 158 
FDE® Fa 1851 
FDE1 CC 1852 
FDE2 CC 1853 
FDE3 CC 1054 
FDE4 Co 1855 
FDES @8 1856 

1857 
FDEG 60 1858 
FDE7 8@ 1859 
FDES 78 1062 
FDE9 CC 106i 
FDER CC 1862 
FDEB CC 1863 
FDEC 78 1864 
FDED 8@ 1865 

1866 
FDEE 62 1067 
FDEF a2 1068 
FDF® DC 10649 


DTC/PC BIOS Graphic Character Generator V1.0 


SOURCE 


111888008 
011800008 
91101188B 
O1110118B 
011001188 
01100119B 
111@8110B 
820000008 


001188008 


B0001 1008 
BOGRROGRB 
080011008 
800011008 
800811088 
110011085 


118011808 
O11 11088B 


111088008 
811808008 
011801168 
01101 100B 
011118008 
011011088 
111081 18B 
BQORBRABE 


G1110888B 


O11 11@80B 
GdeERREEB 


HVGQALEB 
BOBIVABVE 
110011888 
111111108 
111111188 
118181188 
110881188 
G2UBORRSB 


@2RR02008R 
QeeeaeVeB 
111118888 
118011088 
110011888 
110011808 
110011808 
BVOROEB 


BGQVSEERB 
BVSEVGOB 
011118825 
11091 18E 
118011888 
118011208 
81111880 
GeRd20008 
B8OE0008 


GVALBBESB 
110111085 


e 
gesavoses 


ye. 00... 


s 
gaenanses 


qe eoan 


$e aee 


feoueUle. 


. 
qeseecene 
s 

gsaae se 


oe oe 
se 
. 


° 
geeaneces 


qoeeseees 


700..00.. 
y0000000,. 
;0000000. 
300. 0. 00. 


. 
9 mae z 


. 
geveneses 


geeeaaeen 


Veiesiiwins ¢ 


100. .00.. 
300..00.. 


a oeeeteles 
jeeaseena 


;68H (h) 


s69H (i) 


s6AH (4) 


j6BH (k) 


j6CH (1) 


36DH (m) 


g5EH (n) 


:6FH (0) 


s7OH (p) 
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8866/8@87/8@84 MACRO ASSEMBLER 


LOC OR LINE 
FDF1 66 1078 
FDFe 66 1071 
FDF3 7C 1072 
FDF4 68 1873 
FOFS F@ 1074 

1075 
FDF6 8 1076 
FDF7 88 1077 
FDF8 76 1078 
FDF9 CC 1673 
FDFA CC 1080 
FDFB 7C 1081 
FOFC @C 1082 
FDFD 1E 1083 

1084 
FDFE 80 1885 
FDFF 0@ 1085 
FE@@’ DC 1087 
FE@i 76 1888 
FE@2 66 1289 
FEBS 62 189 
FEQ4 FQ 1891 
FE@S 02 109¢ 

1893 
FE@6 @2 1894 
FEQ7 88 1895 
FE@S 7C 1296 
FE@9 C8 1097 
FE@A 78 1098 
FEB @C 1899 
FE@C F8 1100 
FEQD 88 1101 

1182 
FE@E 10 1103 
FEF 32 1104 
FE1@ 7C 1185 
FE11 230 1106 
FE12 30 1187 
FE13 34 1108 
FEL4 18 1189 
FELS 00 1118 

111! 
FE16 @@ 1112 
FE17 @2 1113 
FE1& CC 1114 
FE19 CC 1115 
FEIA CC 1116 
FE1B CC 1117 
FEIC 76 1118 
FEID 8 1119 

1120 
FEIE 82 1121 
FEIF 80 Lie 
FE2@ CC 1123 
Fe2i CC 1124 
Fee? CC 1125 
FE23 78 1126 
FEC4 38 1127 
FE2S 80 1128 

1129 
FE2E 80 1138 
FE27T 80 1131 
FE28 C6 1132 
FEe9 Dé 1133 
FECA FE 1134 
FE2B FE 1135 
FEeC 6C 1136 
Feet 88 1137 

1138 
FEE @8 1139 
FEF @8 1148 
FE3@ C6 1141 
FE31 6C 1142 
FE3¢ 38 1143 
FE33 6C 1144 


DIC/PC BIOS Graphic Character Generator V1.0— 


SOURCE 


01100110 
011081188 
@1111100B 
611888208 
111188008 


811101188 
118011288 
11001 1@@B 
011111008 
80001 100B 
000111188 


B0008R00 
QOR08820R 
110111@2B 
011101188 
011881108 
811820088 
111108808 
GEBBAEREB 


000200003 


000100008 
001 180028 
011111805 
821188008 
831180008 
821101088 
080118088 
BeGRIVVOE 


QOCA0R0R 
QOSHBRBOB 
110011808 
110011828 
110011885 
110011@2B 
011101108 
G2SEROA2B 


O2B2CRCOB 
BBGVSGASB 
11001108 
110011888 
11881 180B 
011118808 
001108808 
820000008 


aoeaeaeeB 
820002008 
110081108 
118101108 
111111188 
111141188 


011011085 
GSVeSEEEB 


GRVLSV02B 
BOLABVGRB 


O11811885 


$e00.eees 
30000.... 


. 
geseceany 


j..00.0., 
gee 00.0. 


300. .00.. 


300..00.. 
300. .00.. 
300..00.. 
;.0000... 
ye. 00.... 


700...00. 


s71H (q) 


y7eH (r) 


y73H (5) 


. y74H Ct) 


S75H (u) 


;76H (v) 


y77H tw) 


s7BH (x) 
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8Q46/8087/8088 MACRO ASSERBLER  DTC/PC BIOS Graphic Character Generator Vi.@. 10:28:28 1/16/84 PAGE 28 


LOC OBJ LINE SOURCE 
FE34 C6 1145 Db 110001108 300. ..00. 
FE35 80 1146 Db —«-@BBBBBANB ears 
FE3E 00 1148 Db —- aBoeREERE ‘income 379H (y) 
FE37 @@ 1149 Db  - @ROBBOAE Fuad e 
FE3B CC 1158 Db 110811008 :00..00.. 
FE39 CC 1151 Db 119811008 700. .00.. 
FE3A CC 1152 Db 110011808 :00..00.. 
FE3B 7C 1153 Db —s-@1111 108 ;.00000.. 
FEC @C 1154 Db —«-88RB1 1028 Ses 
FE3D FB 1185 Db 111110808 :O0000, .. 
FEZE @0 1157 Db —-wewaRBRRE eae we 70H (2) 
FEF ae 1158 Db —- @RBBBERA Siissaaes 
FE4Q FC 1159 Db 111111008 7000000... 
FE41 98 1160 Db 1001 10003 30.00... 
FE42 30 1161 Db 01100088 jes00. 006 
FEA3 64 1162 Db «11001288 +.00,. Os. 
FES FC 1163 Do 111111088 +000000. . 
FE45 O@ 1164 Db  —- @gBeBeAE Sarees 
FE4G 1C 1166 Do «00111008 3.0000.. 37BH (1) 
FE47 30 1167 Db 21100008 +. .00,. 
FEAR 30 1168 De —-@@1 108028 +600. 
FE49 EQ 1169 Db 111000208 :000..... 
FEAR 30 1178 Db «01108088 sp elbiat. 
FE4B 30 1171 Do —s-@BLLA@ARB Salli sesrs 
FEAC 1C 1172 Db 940111028 3... 000.. 
FEAD 00 1173 Db  —- @aBERBORE ee ahi 
FEAE 18 1175 Db «#2119088 yeee00... 57CH (1) 
FEAF 18 1176 Tb 2211808 i000. ss 
FESO 14 i177 Db —- 8011008 i100. 
FES1 0 1178 Db  —- eavaeARRE Sonkicat 
FES? 18 1179 Dh «BBL 10088 te OQ... 
FES3 18 1162 Db 00110208 i200. 
FE54 18 1181 Db 8110008 ffl 
FESS 80 118 Db  —- @ABBRVORE a iaaies 
FES6 EQ 1184 Db 111000008 S000. 0.05 +7DH (}) 
FES7 30 1185 Db «8110008 ee 
FESB 30 1186 Db —«- 81100808 #6400. 000 
FES9 1C 1187 Db —-@RB1 11088 1... 000. 
FESA 30 1188 Db 981100008 12.00... 
FESB 30 1189 Db BOL 100008 +000, 
FESC EQ Db 111880008 1000... 
FESD 80 1151 Db —- BBEAROE a. enna 
FESE 76 1193 Db 11181108 ;.000.00. ;7EH (*) 
FESF DC 1194 Db 110111808 :00. 000. . 
FESO QB 1195 Db  —«-aaoBBARaE ieahavs 
FEI @@ 1196 Db  — aeeneeaeB Oey scans 
FEG2 00 1197 Db  —-BaBAREDEE etic. 
FEG3 00 1198 Db  —- speRBaROE cece 
FEG4 0@ 1199 Db  —-@BBABVBRE ae 
FEES 08 1208 Tbh —- pRBgBaeAE mi eats 
FEGG 00 1202 Db —-aeBaBAREE oe s7FH (Del) 
FEG7 10 Db  —- BBe1800B Meu neu 
FEGB 38 1204 Db —- 981110008 
FE69 6C 1285 Db —«-@1101 1808 00.00 
FEGA C6 1206 Db 110001128 : 
FEB C6 1287 Db 110001108 700... 00. 
FEGC FE 1208 Db 111111108 ;0000000. 
FEGD @2 1289 Db  —-6aa2R0008 eaene : 
1 

—— 1211 ‘Bios Ends 

1212 End 


ASSEMBLY COMPLETE, NO ERRORS FOUND 


‘ 


8086/8087/8888 MACRO ASSEMBLER  DIC/PC BIOS Time of Day and Real Time Clock V1.@ 10:39:29 01/16/84 PABE 1 


IBM PC/XT 8086/8087/8088 MACRO ASSEMBLER Vi.1 ASSEMBLY OF MODULE TIME 
OBJECT MODULE PLACED IN TIME. OBJ 
ASSEMBLER INVOKED BY: ASMBG TIME. SRC 


LOC OBJ LINE SOURCE 
1 +1 $Title (‘DTC/PC BIOS Tise of Day and Real Time Clock V1.8") 
2 +1 $Pagelength (80) Pagewidth (132) Debug Nogen 
3 Name Time 
4 
3 
: H Author: fon K. Harrison 
: : Start date: December 7, 1983 Last edit: December 22, 1983 
1g 
11 ; EERE HHH 
12 A % Module Description # 
13 ' eee tet irr t ttt iet ert ett 
14 : 
{5 ; This module contains the time of day driver routine (Int 26) 
16 ; and the real time clock hardware interrupt service routine (Int 8) 
17 i 
iB 
19 
20 
zt 
rte j (ec) SssHley Telecowmunications Corporation, 1983 
- 1] Rights Reserved 
@ 
ed $E ject 


6@86/8087/8088 MACRO ASSEMBLER 


LOC OBJ LINE 


DIC/PC BIOS Time of Day and Real Time Clock Vi.@ 


SOURCE 
; JAAR 
: * Revision History # 
' JHE HEHEHE 
$€ ject 


10:39:29 81/16/84 PAGE 


@ 


8086/8087/8088 MACRO ASSEMBLER  DTC/PC BIOS Time of Day and Real Time Clock Vi.@ 10:39:29 @1/16/84 PAGE = 3 


LOC OBJ LINE SOURCE 

39 
4@ : JAHEHEHEHHBHHEHHEHEE 
4t : * Public Symbols # 
42 : petettitititittisticd 
43 
re Public TodDriver, TimerHdwrInt 
46 
47 : JHABHHHEHHHHE 
4B ; * Equates # 
4g ; JAA 
oe 
a ; All Equates in include file: IbulInc 
33 $Include (Lbalnc) 

=1 54 : JHAH HEHEHE 

= ' # Global Include File +# 

=] 56 : JHA HHH 

=1 57 — §Nolist 
377 $Eject 


8086/8087/8808 MACRO ASSEMBLER 


LOC OBJ LINE 


DIC/PC BIOS Time of Day and Real Time Clock Vi.@ 10:39:29 @1/16/84 


SOURCE 


BiosDatafrea 


BiosDatafrea 
$E ject 


HHH 


# Data Segments +# 
EETAELEEEEEE TEETH 


Seqment Public 
Extyn TimerLow:Word, TimerHigh:Word, TimerOverflow:Byte 
Pid MotorStatus:Byte, MotorCount :Byte 

5 


PAGE 


4 


8086/8987/8088 MACRO ASSEMBLER 


LOC OBJ 


FE7C FECT 
FETE 751A 


FES@ 89168000 
FEB4 S9E e002 
FEBR COQb020008 
FE8D EB@B 


FEBF 

FEOF SBQEse0e 
FES3 SB160008 
FES? AGge02 


FEOB 1F 
FEC CF 


mmoi|@ 


mmm 


LINE 


DIC/PC BIOS 


SOURCE 


ae ee 


Bios 


. 
1 
® 
bi 
3 


TodDriver 


ReadClock: 
TodRet urn: 


TodDriver 
$Eyect 


Time of Day and Real Time Clock Vi.8 


EELEEEES ESTEE SELES 


# Code Seqeent + 
ittttettitt tt eid 


Segment Common 


Assume Cs:Bios, Ds:BiosDataArea 


JEBHEHEHE EHH 
4+ Time of Day Driver 4 
JAE HEE 
Org @FEGEH 

Proc Far 

Sti 

Push =D 

Push = Ax 

Mov Ax, BiosDatafrea 
Mov Ds, Ax 

Pop fx 

Cli 

Or Ah, Ah 

Jz ReadC lock 

Dec Ah 

Jnz TodRet urn 

‘ Set the clock 


Kov TiserLow, Uy 

Mov TimerHigh,C 

Mov TinerDvertlow,® 
Jap Short TodReturn 


H Read the clock 


Mov Cx, TimerHigh 
Mov Dx, TimerLow 
Rov Al, " TimerOverflow 


Pop Ds 


10:39:29 @1/16/84 PAGE 


gAlign with Pc and Xt 


yRestore interrupts 
iSetup 

gee. Ur 

jr edata 
3...Segment 
sRestore command 
sAllow no ints 

H = Read 
feee jump if so 
; 

$ 


jeeejuap if not and return 


yLow portion of day clock 

sHigh Rca Be of day clock 
Overflow = false 

i. ..Return 


sReturn High portion 
sReturn Low portion 
sRet urn overflow status 


sRestore interrupts 
‘Restore user data seg. 
jaeeand return 


8056/8287/8088 MACRO ASSEMBLER 


LOC OBJ LINE 
635 
636 
637 
638 
639 
FEAS 640 
bat 
FEAS 642 
FEAS FB 643 
FEAG 1£ 644 
FEAT 52 645 
FEAB 50 646 
FEA Ba---- RAT 
FEAC BED8 648 
649 
650 
651 
FEAE FEeEeeRe E 652 
FEB? 7588 653 
FEBS gezneowere = ES«éB4 
FEB beac 655 
FEBE BAF2@3 656 
FEBE EE 657 
FEBF 658 
659 
660 
661 
FEBF FFOGOaOe E 662 
FEC 7504 663 
FECS FFesoaee E 664 
FEC aazeeaeei8 «= «ESC 
FECE 7519 667 
FED@ G13ce@0@B0a0 668 
FED6 7511 669 
670 
671 
672 
FEDA C7aeqvoR.aee E 673 
FEDE C7e@ovoaaw2 £ 674 
FEE4 CEQE@OR00! = «E 675 
676 
FEES 677 
678 
679 
FEES CDIC 680 
BBL 
6Be 
683 
FEEB Beee 664 
FEED E628 685 
FEEF 58 686 
FEFO 5A 687 
FEF 1F 688 
FEF2 CF 689 
698 
691 
a 692 
693 
654 


DTIC/PC BIOS Time of Day and Real Time Clock V1.8 


SOURCE 


ue wae oe 


TimerHder Int 


MotorsStill Run: 


NoCarryToHi: 


NoCarryToOflo: 


TimerHder Int 
Bios 


End 


ASSEMBLY COMPLETE, NO ERRORS FOUND 


SEE EEE EEE EEE EEE 


* Real Tiwe Clock Handler +4 
prterertrrtt ttt tiiett ttt ttt t 


10:39:29 @1/16/84 PAGE 


Org @FEASH yAlign with PC and Xt 
Proc = Far 

$i Restore interrupts 
Push = Ds ‘Save Sinisum registers 
Push = Dx 3.2.50 this runs 

Push = Ax geea fast 

Mov Ax, BiosDataArea sLoad segment register 
Mov Ds, Ax je. With bios segment 

‘ First, process diskette motor timer 


Dec MotorCount 

Jnz MotorsStillr 

And MotorStatus, 111100008 
Mov A), 088011008 

Mov Dx, , Port FDCAdpt Mode 
Qut Dx, Al 


; Now, process clock 


Inc TimerLow 
Jnz NoCarryToHi 
Ine TimerHigh 


Cep Atha 18H 
Ine —_—NoCarryTollflo 
Cup TimerLow, @B@H 
Jne NoCarryToOfio 


; Set overflow 
Mov TimerHigh, @ 

Mov TimerLow, 8 

Mov TimerOverflow, i 


jReduce timer for motor by 1 
jeseand return if not @ 

iClear motor running bits 

3...and turn off motors 

sPoint at port 

4. turn thea off 


sInc the low part of timer 
i asand jusp if it didn’t carry 
jeee@lse increment High timer 


yDoes the timer = 24 hrs 
‘evs UND if not 
yDoes the timer = 24 hrs 
feos jump if not 


yClear the 
ieee tinier a and 
¥..25¢ the overflow flag 


H Now, process user RTC tick routine 


Int TrapTimerBreak 
f Acknowledge interrupt 
Hov Al, PicEoi 


Out PortPICOCW2, Al 
Pop Ax 


Pop Dx 
Pop Ds 
Tret 
Endp 
Ends 


sProbably a dummy return 


sEnd of interrupt 
$.0e¢0 82598 
;Restore 

1. .sregisters 

jes sand 
...return 
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8086/8087/8086 MACRO ASSEMBLER DIC/PC BIOS Print Screen Driver V1.0 10:40:59 01/16/84 PAGE 


IBM PC/XT 8@86/8087/8088 MACRO ASSEMBLER Vi.1 ASSEMBLY OF MODULE PRINTSCREEN 
OBJECT MODULE PLACED IN PRINTSCN. OBJ 
ASSEMBLER INVOKED BY: ASMBE PRINTSCN, SRC 


LOC OBJ LINE SOURCE 

1 +1 $Title ("DTC/PC BIOS Print Screen Driver Vi.@") 

2 +1 $Pagelength (80) Pagewidth (132) Debug Nogen 

3 Name PrintScreen 

4 

3 

& ‘ Authors Don K. Harrison 

: ; Start date: December 7, 1983 Last edit: December 20, 1983 
18 

ii : EERE EEE EE EESEEEEE 

ie : # Module Description # 

13 : EHR ES EEE SE 

14 j This module contains the print screen interrupt routine 
15 ; (Int 5), 

16 

i7 

18 

19 
28 
21 
ee ‘ (c) wrap Telecommunications Corporation, 1983 
a ; 1) Rights Reserved 
rob] $Eject 


§086/8087/80B8 MACRO ASSEMBLER DTC/PC BIOS Print Screen Driver 1.8 , 10:40:59 @1/16/84 PASE 2 


Loc OBJ LINE SOURCE 


REREHLESEEEEE ESSE 
# Revision History # 
EEHEELEELEEESE HEE 


my 
wo Cc 
0 aw we 


38 $E ject 


8@86/8087/8088 MACRO ASSEMBLER 


LOC OBJ LINE 


820A al 
G20) ae 


hoi of oat 

ee ee ee 
i 
= 


DTC/PC BIOS Print Screen Driver V1.6 10:40:59 @1/16/84 PAGE 


SOURCE 


JHMM HE 


* Public Symbols # 
piretitricettetettred 


wom oe nee 


Public PrintScreenInt 


tHE 


# Equates # 
HUHHEHEEHBHE 


os 00 am 


;Ascii line feed 


AsciiLineFeed Equ OAH 
yAscii carriage return 


q 
AsciiCarriageReturn Equ @DH 


$Include (IbmInc) 
AHHH 


# Global Include File # 
pertrrrirrrtrtitiiettt ios 


ee wen 


$Nolist 
$Eject 
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B086/8087/8068 MACRO ASSEMBLER 


Loc OBJ 


DIC/PC BIOS Print Screen Driver Vi.@ : 10:40:59 21/16/84 
SOURCE 

; JABS 

; + Data Segments # 

; FEERSELE EEE 

BiosDatafrea Segment Public 

Extrn PrintSenStatus: Byte 
BiosDatafrea Ends 
$Eject 


PAGE 


4 


8086/8087/8888 MACRO ASSEMBLER 


LOC OBJ LINE 
989 
598 
531 
592 
593 
a 594 
095 
FF34 096 
597 
398 
099 
FF34 600 
FF54 FB 601 
FFSS 1£ 602 
FF56 38 603 
FFS7 33 624 
FFS8 Ot 605 
FFO9 52 606 
FFSA Ba---- R 687 
FFSD GEDa 608 
FFSF 8636000001 E 689 
FF64 7456 618 
Git 
612 
613 
FF66 Co@6eaeaet E 614 
615 
616 
617 
FF6B E5400 618 
619 
620 
621 
FFGE B4@F 62 
FF7@ CD18 623 
FF72 58 6c4 
FF73 Ba@3 625 
FF73 CD10 626 
FF77 58 627 
FF78 32 628 
FF79 B519 629 
FF7B SACC 638 
FF7D 33De 631 
632 
633 
634 
FETE 635 
FF7F Bae 636 
FFAt (D1 637 
FFAS B40d 636 
FF&3 CD18 639 
FFB7 BALD 648 
FFB9 7582 641 
FFOB Bace 642 
FF&aD 643 
644 
645 
646 
FF8D 52 647 
FFE 33D2 648 
FF9Q 8AEZ 649 
FFS2 CD17 650 
FF94 SA 651 
632 
633 
654 
FF9S F6C425 659 
FF98 747 636 
FFOA CO@68R00F F E 657 
FFOF EBi6 658 
609 
668 
FFAL 661 
FFAL FEC2 662 
FFA3 3ACA 662 


DIC/PC BIOS Print Screen Driver V1.2 


SOURCE 


ee we we 


Bios 


PrintScreenInt nee 
i 


Chardk: 


NoError: 


10:40:59 1/16/84 PAGE 


JHE HE 


# Code Sequent +* 
SHEER SEEERH EEE EEE 


Seguent Common 


Org 


Assume 


OFFS4H sAlign with Pc and Xt 
Cs:Bios, Ds:BiosDatafrea 
Far 
yRestore interrupts 

Ds S wiaidhalnre aniaiaieieieies 
fix +. Save . 
Bx Js . 
* y. Registers. 

x Geeeseeesrasescan 
Ax, BiosDatafrea iLoad our segment 
Ds, Ax 4...into Ds 
PrintScnStatus, t iIn progress already? 
InProgressEnd jae. Jump if so and return 


Set status = i = in progress 
PrintScnStatus, t poet status 

Initialize printer 

PCr lf sOnly needs a line feed 


Get cursor position 


Ah, VidCadInfo yGet page number and info 
TrapVideo ys. for use later 

Ax ySave colunns 

Ah, VidCadRdCurPos yRead cursor position 
TrapVideo y...for restoration purposes 
Ax sGet back columns 

Dx y..eand Save cursor pos 

Ch, 29 sAlways do 29 rows 

C1, Ah ;...and (Coluans) columns 
Dx, Dx Start of screen = 8,8 


Print the screen 


Ah, VidCadCurPos ySet cursor to next (first) 
TrapVideo jee line 

Ah, VidCmdRdCurChat yRead the 

aa jee Character 

Al,Al If zero, 

Chardk q...then convert 

Al,’ ' jeeetO a Space 


Print the character 


Dx ySave cursor position 
Dx, Dx jSelect printer 1 

Ah, D1 jess print comand 
TrapPrintDrive sPrint it 


yRestore cursor 


Test for error 


Ah, 001801018 Error if any bit set 
rror jy... jump if no error 
PrintSenStatus, @FFH yError status 


Short PrintScnEnd 
Increment to next character position 


Dl yBusp column oh 
C1,D1 jeeeis it right limit? 


8086/8087/8988 MACRO ASSEMBLER 


LOC OBJ LINE 
FFAS 7308 Bb4 
FFA7 3202 665 
FFAS ESi692 666 
FFAC FEC6 667 
FFRE 3AF5 668 
@ Tac) 669 
FFB2 CORbQaeeae E 678 
671 

672 

673 

FFB7 674 
FFB7 SA 675 
FFBB B42 676 
FFBA CDI 677 
FFBC 678 
FFBC SA 679 
FFBD 99 680 
FFBE SB 681 
FFBF 38 682 
FFCQ iF 683 
FFC1 CF 684 
685 

686 

687 

686 

689 

FFC2 698 
FFCe 52 691 
FFC3 3202 692 
FFCS Ree 693 
FFC7 Bee 694 
FFC9 CDi? 698 
FFCB 32£4 656 
FFCD Bed 697 
FECF CDi7 698 
FFDi SA 699 
FFD2 C3 708 
781 

7@2 

703 

704 

a 785 
786 

z 707 


ASSEMBLY COMPLETE, NO ERRORS FOUND 


DTC/PC BIOS Print Screen Driver 


SOURCE 


PrintScnEnd: 


InProgressEnd: 


PCrif 


PCrif 
PrintScreenI nt 
Bios 


End 


Vid 
PrintScreenLoop 
D1, D1 
PCrif 
Dh 
Dh, Ch 
PrintScreenLoop 
PrintSenStatus, @ 


10:48:59 01/16/84 PAGE 


jereif not, loop 

3Do carriage return on screen 
sDo carriage return on printer 
;Increment row 

fe.0ver Limit? 

joes jump if not 

sIndicate all done 


Restore cursor and return 


Dx 
Ah, VidCadCurPos 
TrapVideo 


HEHEHE PE 


# Printer Carriage Return # 
JAB 


Proc 
Push 
Yor 
Mov 
Mov 
Int 
Xor 
Mov 
Int 
Pop 
Rec 
Endp 


Endp 
Ends 


q 
Al, AsciiLineFeed 
TrapPrint Drive 
Ah, Ah 
Al, AsciiCarriageReturn 
Cee Re 
x , 


yRestore original 
}.».cursor 
JeuetO SCreen 


;. Restore » 
j. Registers . 
je and . 
He Return . 


;Save Dx 

sSelect printer 1 
yaseand command = print 
sSend LF first 

yee. like IBM does 
sIgnore status 

ySend Cr 

fae hOXt 

;Restore Dx 

j.seand return 
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